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nicht scheitern wollen. 78 
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Als H.G. Wells im Jahr 1805 sein Buch 
"THE WAR OF THE WORLDS” 
schrieb, ahnte er bestimmt noch nicht 
weiche Reaktion es hinter sich her- 
ziehen würde. Im Jahr 1963 wurde 
dieses Buch nämlich als Hörspiel im 
New Yorker Radio ausgestrahlt. Das 
Hörspiel lief als Experimentalsendung, 
das heißt, daß es vorher nicht angekün- 
digt wurde und während der gewöhn- 
lichen Nachrichtenzeit lief. Die Folge 
davon waren Massenpaniken, da die 
Zuhörer annahmen, das tatsächlich 
Marsmenschen gelandet wären und die 
Erde erobern wollten. 

1975 erschien dann von dem engli- 
schen Komponisten und Grafiker Jeff 
Wayne eine Musical Fassung des 
Buchs, die auch in Form eines Hör- 
spiels mit bekannten Künstlern wie Eric 
Burdon aufgenommen wurde. Ein Jahr 
später gab es dann auch die Deutsche 
Version der LP mit Curd Jürgens als 
Erzähler. 

Heute, im Jahr 1984, nachdem der 
Titelsong der LP"TTHE CHANCES OF 
ANYTHING COMING FROM 
MARS”, noch immer in den Ohren 
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klingt, erschien bei der Firma CRLeine 
Video-Spiel-Version der Langrille. 

Die Handlung des Buches ist folgen- 
de: 

Am 12. August 1900 um Mitternacht 
wurde in einem großen englischen Ob- 
servatorium festgestellt, das es auf dem 
Mars mehrere große Explosionen gege- 
ben hatte. 10 Tage später schlug auf der 
Horsell Common Weide einer kleinen 
englischen Ortschaft eine Art Meteorit 
ein. Die Bewohner des Dorfes näherten 
sich dem glühenden, metallisch-schim- 
mernden Körper und hörten ein Krat- 
zen und Schaben aus dem Inneren. 
Nach ein paar Tagen bildete sich an 
der Spitze des Körpers eine Öffnung. 
Aus der Öffnung schoß ein Hitzestrahl 
hervor, der alles was in seinem 
Wirkungsbereich kam vernichtete. 
Nachdem die Schaulustigen voller Pa- 
nik geflohen waren, machten sich die 
Marsianer daran, große Kampfmaschi- 
nen, die sogenannten TRIPODEN, zu 
bauen. Diese dreibeinigen Monster wa- 
ren mit keiner Waffe, die es im Jahre 
1900 gab zu vernichten. Die Hauptfigur 
des Romans ist ein Reporter. der ver- 





sucht auf der Flucht vor den Monstern 
London zu erreichen. In London an- 
gekommen erfährt er, das einige Wis- 
senschaftler planen, unterirdisch eine 
neue Zivilisation aufzubauen. Im 
letzten Moment jedoch sterben die In- 
vasoren an der Grippe, da sie für diese 
Krankheit keine Abwehrstoffe haben. 
In dem Computerspiel übernehmen 
Sie den Part des Reporters und müssen 
sich in einem Adventure/Action-Spiel- 
Gemisch bis zu diesem Zeitpunkt am 
Leben erhalten. Das Spiel hat eine her- 
vorragende Grafik mit den Origi- 
nalsongs und Titelbildern der LP. 
Auch die Texte der Originalausgabe 
wurden übernommen. Unserer Mei- 
nung nach gehört dieser Klassiker in 
jede Softwaresammlung von Science 
Fiction oder Adventure Freaks. Das 
Programm ist bisher für den 48Kb 
Spectrum und in absehbarer Zeit auch 
für den C-64 erhältlich. 

Bezugsquelle: 

Computer Plus Soft GmbH, Dinslaken 
(tm) 
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Zuerst einmal ausgepackt: 
Ein flacher futuristisch ge- 
stylter Computer insilberfar- 
benem Plastikgehäuse. Es 
sieht nicht so aus, als ob man 
ihn fallen lassen könne, an- 
sonsten scheint er äußerlich 
sauber verarbeitet zu sein. 
Sofort ins Auge springt die 
Tastatur: Zum einen handelt 
es sich "nur” um die be- 
kannten Gummitasten, und 
zum anderen hat er jede 
Menge davon, um genau zu 
sein: 66. 

Neben den üblichen Zahlen, 
Zeichen und Buchstaben 
gibt es vier Cursor-Steuer- 
tasten, DEL, INS. BS, RU- 
BOUT, RST. FCTN, BASIC 
und die bekannten CTRL 
und ESC. Zusätzlich gibt es 
neben der SPACE-Bar noch 
eine "BIT 90"-Taste mit dem 
Firmenzeichen der Bit-Corpo- 
ration. Derartiges ist man ja 
von Commodore und Atari 
gewöhnt. Auf den Buchsta- 
bentasten sind noch jeweils 
ein bis zwei Grafikzeichen 
(insgesamt 69 vordefinierte 
Graphics) und ein BASIC- 
Befehl zu sehen. 

Zu den Anschlüssen, die der 
Computer aufweist: Auf der 
linken Seite ist ein Schacht 
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COMPUTER ERLEBT... 


für ROM-Cartridges, und 
zwar nicht für irgendwelche, 
sondern compatibel zu CO- 
LECOVISION. d.h.. wer den 
BIT 90 besitzt ist gleichzeitig 
im Besitz einer der zur Zeit 
besten Telespiel-Konsolen. 
Auf der rechten Seite finden 
sich dann, was zu erwarten 
war: Zwei Anschlüsse für 
Joysticks. Es passen alle Joy- 
sticks, die auch zu ATARI 
passen. Für einige COLECO- 
VISION-Kassetten sind die 
Coleco-Joysticks mit Zah- 
lenfeld besser. 

Auf der Rückseite des Com- 
puters befindet sich der 
Erweiterungs-Bus. Anschlüs- 
se für Fernsehgerät, Kasset- 
tenrecorder, Monitor (!} und 
Netzteil sowie der EIN/AUS- 
Schalter. 

Weiter befindet sich im 
Karton des BIT W ein recht 
ordentlich wirkendes Netz- 
teil. Der wärme-intensive 
Spannungsregler befindet 
sich im Netzteil und nichtim 
Computergehäuse! Dazu 
noch Kabel, um alles mitein- 
ander zu verbinden. Selbst 
das Kabel, um den BIT% an 
einen Monitor mit Video- 
und Toneingang anzuschlie- 
Ben, ist vorhanden. 


u 
a 
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Als letztes fällt mir ein recht 
dünnes, englisches Hand- 
buch in die Hände: "Opera- 
tion Manual”, 

Nach ein paar Trocken- 
übungen auf der Tastatur - 
sie scheint sich recht gut be- 
dienen zu lassen: Ein deut- 
licher Druckpunkt ist vor- 
handen -will ich das Gerät 
erst einmal anschließen. 
Also das Kapitel "How to po- 
wer on your BIT 90 com- 
puter” aufgeschlagen und 
alle Anschlüsse hergestellt. 
Alles schön und gut, aber 
welchen Kanal braucht der 
Computer? Im ganzen Ka- 
pitel ist nichts erwähnt. Also 
versuche ich es mit Kanal 36, 
denn da liegen ja auch die 
anderen Computer. Und 
weiter mit der Anleitung: 
"Your TV screen will display 
the color title "BIT 90”, ...”. 
Bei meinem tut sich nichts. 
Also doch nicht Kanal 36. 
Ich wende mich noch einmal 
der Anleitung zu: Nichts! Es 
steht nicht drin. Vielleicht 
steht es woanders, und 
tatsächlich: "Appendix 11 
Hardware  Specification”. 
Aufder letzten Seite wird un- 
ter den technischen Daten er- 
wähnt. daß Kanal4 im VHF- 


Bereich benutzt wird. Jetzt 
bekomme ich auch ein deut- 
liches Farbild, und es meldet 
sich das BIT 90 BASIC. Im 


EDIT- bzw. Kommando- 
Modus (d.h. immer, wenn 
man Kommandos bzw. Zei- 
len eingibt und ändert. also 
kein Programm läuft) ist der 
Bildschirm grün mit schwar- 
zen Zeichen. Das ist schein- 
bar nicht veränderbar. 

Die mehrfache Tastenbele- 
gungerweistsich als sehr ein- 
fach zu handhaben: Groß- 
und Kleinbuchstaben sind 
wie gewohnt zu erreichen. 
Befehle und Kommandos 
können alle auch in Einzel- 
buchstaben eingegeben wer- 
den. Die vordefinierten 
BASIC-Wörter müssen nicht 
benutzt werden, obwohl sie 
es dem Anfänger leichter 
machen. Wenn man gleich- 
zeitig auf BASIC und eine 
Taste drückt, erscheint das 
entsprechende BASIC-Wort 
auf dem Bildschirm (d.h. bei 
drei Tasten passiert nichts: 
Die für Diskettenbetrieb vor- 
gesehenen Wörter OPEN, 
CLOSE und DELETE funk- 
tionieren ohne Erweiterung 
nicht). Auch die Grafik ist 
leicht zu erreichen. Ein 
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Druck auf die "Bit 0"-Taste, 
und man ist im Grafik- 
Modus. Leider wird dies 
nicht durch veränderten 
Cursor angezeigt, 

Jetzt sind mit oder ohne 
SHIFT die zwei Grafik- 
zeichen, die auf die Tasten 
gemalt sind, zu erreichen. 
Ein weiterer Druck auf die 
BIT 9%-Taste, und man ist 
wieder im Text-Modus. 


BIT-BASIC ist eigenwillig 
So, der Computer ist an- 
geschlossen. die Tasten sind 
ausprobiert; also kann es 
nun losgehen, Das BASIC 
erweist sich als das übliche 
Microsoft-BASIC mit Er- 
weiterungen (siehe auch Ta- 
belle). Schade, daß immer 
noch die Stringfunktionen 
LEFT$. RIGHTS. und MIDS 
benutzt werden, obwohl HP. 
SINCLAIR und andere ohne 
diese Funktionen auskom- 
men. dafür aber eine unein- 
geschränkte Indizierung von 
Zeichenketten zulassen. 

Als Benutzer eines SIN- 
CLAIR-SPECTRUM fallen 
mir zunächst eine ganze 
Menge Einschränkungen ins 
Auge: 

Die Zeilenlänge ist nicht be- 
liebig. sondern maximal 128 
Zeichen lang, ebenso die ein- 
zelnen Strings. Weiter kön- 
nen keine beliebig-dimensio- 
nalen Felder mit beliebigen 
Elementen dimensioniert 
werden. Maximal 3 Di- 
mensionen mit je 255 Ele- 
menten sind erlaubt. Mit 
OPTIONBASE kann der 
Basis-Index auf 0 oder I ein- 
gestellt werden. Bei DIM fällt 
auch der erste ROM-Fehler 
auf: Bei dem Versuch. ein 
Feld zu dimensionieren, das 
nicht mehr in den Speicher 
paßt, steigt der Computer 
aus. Selbst die RESET-Taste, 
die normalerweise ohne Pro- 
grammverlust funktioniert, 
rettet nichts mehr. Ich denke. 
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die Fehlermeldung "OUT 
OF MEMORY” wäre ange- 
brachter gewesen. 

Bei Variablen werden immer 
nur die ersten zwei Zeichen 
des Namens berücksichtigt. 
obwohl er beliebig viele ha- 
ben darf. String- und di- 
mensionierte Variable sind 
nicht nur, wie etwa im ZX- 
BASIC, auf einen Buchsta- 
ben festgelegt. Selbster- 
klärende Variablennamen 
sind in allen Fällen, sogar bei 
FOR-NEXT-Schleifen, mög- 
lich. Leider sind aber bei mit 
DEF FN definierten Funktio- 
nen nicht mehrere Para- 
meter zu verwenden, aber bei 
Benutzung von Variablen, die 
sowohl in der Funktion als 
auch im Programm vorkom- 
men. läßt sich das umge- 
hen. 

Etwas problematischer wird 
die Einschränkung bei ver- 
schachtelten FOR-NEXT 
und GOSUB-Schleifen. Die 
maximale Schachtelungs- 
tiefe ist 10, Wird diese über- 
schritten. indem man etwa 
häufiger aus einer FOR- 
NEXT-Schleife heraus- 
springt. erscheint "OUT OF 
MEMORY”. Aus FOR- 
NEXT-Schleifen herauszu- 
springen muß man ebenso 
unterlassen, wie ein mit 
GOSUB angesprungenes 
Unterprogramm nicht mit 
RETURN zu verlassen. 
Positiv fällt auf, daß eindi- 
mensionale Felder bis zu 10 
Elementen nicht durch DIM 
erzeugt und auch die ganzen 
Variablen nicht vorher defi- 
niert werden müssen. Sie ha- 
ben eben den_Wert O0 oder 
sind ein Leer-String, wenn 
sie noch nicht im Programm 
vorkamen. Bei Stringvaria- 
blen sollte man allerdings vor- 
sichtig sein, da ein weiterer 
ROM-Fehler den Computer 
manchmal zum Aussteigen 
bringt, wenn ein nicht defi- 
nierter String verwandt wird. 


Aber das 
manchmal. 
Die oben erwähnten Ein- 
schränkungen sprechen aber 
nicht gegen den BIT 90, da 
die meisten Computer ähn- 
lichen Einschränkungen 
unterliegen. 

Beim Eingeben eines Pro- 
grammes fallen einige Dinge 
auf, die für Computer dieser 
Preisklasse, (leider) noch 
nicht selbstverständlich sind: 
Mit EDIT läßt sich jede be- 
liebige Zeile sofort zum 
Editieren auf dem Bild- 
schirm bringen. Der BIT 90 
hat zwar "nur" einen Zeilen- 
Editor. der ist dafür aber aus- 
gereift. Mit den Cursortasten 
kann man (ohne ständig 
SHIFT zu drücken) beliebig 
in der Programmzeile hin- 
und herfahren. Die über den 
Cursortasten angebrachten 
Tasten DELete und INSert 
erlauben einfaches und 
schnelles Ausbessern von Feh- 
lern oder Erweitern von Zei- 
len. Mit AUTO lassen sich 
beider Eingabe längerer Pro- 
gramme die Zeilennummern 
in beliebigem Abstand auto- 
matisch vorgeben. Außerdem 
gibt es den Befehl RENUM. 
mit dem das Programm um- 
numeriert werden kann. (Bei 
längeren Programmen dau- 
ert es derzeit noch schr (!) 
lange. Ich nehme an, daß 
auch hier ein Fehler im 
ROM ist). 

Weitere Befehle, die nicht 
ganz selbstverständlich sind: 
ON ERR GOTO., IN, OUT, 
TRACE und UNTRACE. 
Außerdem kann mit JOY- 
STi(x) der Joystick abgefragt 
werden. 


passiert 


nur 


In Sachen Grafik eine "1" 

Interessant ist bei einem Ho- 
mecomputer natürlich im- 
mer die grafische Seite. 
Schon im Text-Modus zeigt 
der BIT W Erstaunliches: 16 
Farben sind wahlweise als 


Vorder- oder Hintergrund- 
farbe eines jeden Zeichens 
zu verwenden. Die Grafikbe- 
fehle erinnern sehr stark an 
den TI 99/4A: Mit CALL 
CHAR können alle 256 
Zeichen frei definiert werden 
und mit CALL HCHAR und 
CALL VCHAR beliebig auf 
den Bildschirm positioniert 
werden. Mit CALL CHR- 
COL werden die Farbwerte 
einzelner Zeichengruppen 
festgelegt. Ebenso können 
die Zeichen natürlich auch 
mit PRINT auf den Bild- 
schirm gebracht werden, al- 
lerdings mit Ausnahme der 
Steuerzeichen. Leider fehlt‘ 
PRINT AT oder so etwas 
ähnliches, aber dies ist durch 
einfache POKEs auszu- 
gleichen. Zusätzlich zu die- 
sen hervorragenden Eigen- 
schaften des TI 9/4A kom- 
men noch 32 Sprites. Mit 
dem Befehl CALL SPRPTN 
können 128 verschiedene 
Shapes für Sprites definiert 
werden, die mit dem Befehl 
CALL SPRITE an jeder be- 
liebigen Pixelposition des 
Bildschirmes in jeder der 16 
Farben dargestellt werden 
können. Wird ein Sprite von 
einer Position zur nächsten 
bewegt, erscheint an der 
alten Position automatisch 
der alte Hintergrund, 

Wer wissen will. zu welchen 
Grafikmöglichkeiten der 
BIT 90 fähig ist, braucht sich 
nur die COLECOVISION- 
Kassetten anschauen! Alle 
Grafikmöglichkeiten sind, 
wenn auch nicht so schnell, 
vom BASIC aus erreichbar. 
Eines stand nicht im Hand- 
buch, sondern auf einem 
nachgereichten Zettel: Die 
Sprites sind in 4 Größen 
darstellbar: 

1.8 x 8 Pixel in normaler 
Größe (1 Zeichen) 

2.8 x 8 Pixel in doppelter 
Größe (2x2 Zeichen) 

3. 16 x 16 Pixel in normaler 
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Größe (2x2 Zeichen) 

4. 16 x 16 Pixel in doppelter 
Größe (4 x 4 Zeichen) 

Die verschiedenen Größen 
sind allerdings nur durch 
POKEs und einen Maschi- 
nenaufruf zu erreichen: 
POKE 28692,a:POKE 
28693.b:CALL 9515 

Im Text-Modus wird a mit 0 
beschrieben und b miteinem 
Wert zwischen 192 und 195, 
wobei 192 für8 x 8 Pixel in 
normaler Größe steht. im 
hochauflösenden Grafikmo- 
dus hat a den Wert 2. Bei l6x 
16 Pixels benutzt ein Sprite 
vier aufeineinderfolgende 
Shapes. so daß insgesamt 
statt der 128 nurnoch 32 Sha- 
pes zur Auswahl stehen. 
Außer dem hier beschriebe- 
nen Text-Modus (Mode 0) 
mit 32 x 24 Zeichen stehen 
zwei weitere Modi zur Verfü- 
gung, in denen auch mit 
Sprites gearbeitet werden 
kann, aber keine Zeichen auf 
den Bildschirm gebracht 
werden können, also auch 
kein Text: 

Hochauflösende Grafik 
(Mode 1): 192 x 256 Pixels in 
16 Farben, wobei jeweils 8 
Pixels nebeneinander nur 
zwei Farben aufweisen kön- 
nen. (Die Farbauflösung ist 
also Sfach so gut, als beim 
SPECTRUM). 
Niedrigauflösende Grafik 
(Mode 2): 64 x 48 Pixel in 16 
Farben. Jeder Pixel kann 
eine der 16 Farben aufwei- 
sen. Wozu dieser Modus 
sinnvoll ist, ist mir nicht 
klar. 

Für beide Grafikmodi gibt es 
einen erweiterten PLOT- 
Befehl, mit dem ganze Figu- 
ren gekennzeichnet werden 
können. PLOT x.,y.c setzt ei- 
nen Punkt in der Farbe c, 
während PLOTTO x.y.ceine 
Linie zu Punkt x.y zeichnet. 
Mit PLOT xl. yl TO x2, y2 
TO x3, y3 können komplette 
Zeichnungen erstellt werden. 
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Vermißt habe ich die Befehle 
CIRCLE und FILL. 
Apropos Grafik: Das RAM 
für den Bildschirm liegt 
parallel zum ROM und ist 
mit PEEK und POKE nicht 
erreichbar. Dafür benutzt es 
auch keinen Programm- 
speicher. Das heißt, wenn Sie 
einen BIT 90 mit I$KB RAM 
kaufen. sind 16 KB für das 
BASIC-Programm und? KB 
für Systemvariable. (Mit Ma- 
schinensprache ist es aller- 
dings möglich.das Video- 
RAM einfach zu lesen. da die 
notwendigen Routinen im 
ROM enthalten sind. Auch 
in Basic geht es mittels IN- und 
OUT-Befehlen. obwohl Be- 
fehle wie VPOKE und 
VPEEK sicher von Vorteil 
gewesen wären.) 


Der Bit kann sich hören 
lassen: 

Von der Grafik zum Sound: 3 
Ton- und ein Rauschkanal 
stehen zur Verfügung. Die 
Programmierung ist denk- 
bar einfach. Mit MUSIC 
kann für jeden Kanal die Ton- 
folge festgelegt werden (üb- 
liche Notation), mit TEMPO 
die Geschwindigkeit und der 
Befehl PLAY bringt dann al- 
les zur Ausführung. Die 
Rauschmöglichkeiten sind 
im englischen Handbuch lei- 
der nicht erwähnt: Es ist Ka- 
nal 3! Es ist sogar möglich, 
daß eine mehrstimmige Me- 
lodie ständig wiederholt 
wird: Ein einfacher Stern vor 
der Tonfolge im Musik- 
Befehl sorgt dafür. So kann 
die Musik während eines 
ganzen Spieles erönen. 
Auch hier zeigen die COLE- 
COVISION-Kassetten. was 
tatsächlich möglich ist... von 
Basic aus. Die Musik kann 
über einen Verstärker wie- 
dergegeben werden, aber 
auch über den Fernseher. 
(Auch beiden Tönen können 
mittels OUT-Befehlen Dinge 


erreicht werden. die BASIC 
nicht vorsieht, etwa extrem 
hohe oder tiefe Töne. oder 
Zwischentöne für Freunde 
experimenteller Viertel- 
oder Achteltonmusik.) 
Weitere technische Daten: 
Übertragungsrate zum Kas- 
settenrecorder: 2400 Baud 
(sehr schnell). Ich brauchte 
ein wenig. bis mein Kasset- 
tenrecorder mit LOAD und 
SAVE fehlerfrei klarkam. 
ROM: laut Handbuch 24 K. 
wobei 16 K vom BASIC les- 
bar sind. Ein Monitor-ROM 
ist wohl vorhanden. wird 
aber nach der Initialisierung 
des Computers nicht mehr 
gebraucht. 

RAM: I16K Video-RAM und 
I$ K Benutzer-RAM. er- 
weiterbar auf 34 K. 
Erweiterungen: 
Druckerinterface mit Soft- 
ware im ROM. Die Befehle 
LLIST. LPRINT. und PRTSC 
sind möglich, wobei PRTSC 
in allen Bildschirmmodi 
eine HARDCOPY des Bild- 
schirmes auf EPSON-kom- 
patible Grafikprinter bringt! 
Das Druckerinterface kann 
an jeden Printer mit Centro- 
nics Interface angeschlossen 
werden. Ich hatte mit mei- 
nem EPSON MX-80 III 
keine Probleme! 

Weiter sollen erscheinen: In- 
terface für Floppy-Laufwerk. 
Farbdrucker, ASSEMBLER 
in ROM-Cartridge und ein 
Adapter. um auch ATARI- 
Kassetten mit dem BIT % 
abzuspielen. 


Erhältliche Software: 
Sämtliche COLECOVISION- 
Kassetten sind auf dem BIT 
90 abspielbar. Außerdem soll 
es diese Spiele dann auch 
(wesentlich preiswerter) auf 
Tonbandkassette geben. 
Von WICOSOFT war zu er- 
fahren. daß es mit der baldi- 
gen Markteinführung des 
BIT W auch ein Angebot an 


deutscher Software von deut- 
schen Autoren geben wird: 
Disassembler und Assem- 
bler.ein Text-undein Kartei- 
programm und natürlich 
auch verschiedene Spiel- 
und Lernprogramme. 

In Taiwan. dem Herkunfis- 
land des BIT 90, gibt es be- 
reits eine ganze Reihe an 
Programmen. die es dann 
sicherlich auch in Deutsch- 
land geben wird. 


Urteil: 

Negativ: 

Das ROM enthält noch eini- 
ge Fehler. VPOKE und 
VPEEK und ertl. die Funk- 
tion SCRN sollten einge- 
baut werden. 

Das englische Manual ist 
entsetzlich. Einige Befehle 
werden nicht erwähnt und 
wer keine Ahnung von Basic 
hat. bekommt Schwie- 
rigkeiten. Es war allerdings 
zu hören, daß das deutsche 
Handbuch wesentlich ver- 
bessert werden soll! 

Eine Gummitastatur ent- 
spricht nicht mehr dem Stan- 
dard! Sie ist zwar recht gut 
und brauchbar, dürfte aber 
einige abschrecken. Meine 
Meinung: Lieber 20 DM 
mehr gezahlt und eine 
“richtige” Tastatur. Anderer- 
seits sollte die Tastatur nie- 
manden vom Kauf zurück- 
halten. . 
Die SAVE- und LOAD- 
Sicherheit sollte hard- 
wareseitig verbessert wer- 
den. 

Alles in allem: Nachteile, mit 
denen man leben kann. 
Wenn man sie kennt, stören 
sie nicht mehr. 


Positiv: 

Hervorragendes BASIC. 
komfortabler Zeilen-Editor, 
wirklich excellente Gralfik- 
und Ton-Mösglichkeiten. 
Nur wenige Homecomputer 
dieser Preisklasse ziehen da 
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voll mit! Gleichzeitig voll- 
wertiger Homecomputer und 
Telespiel-Konsole. 

Grafik und Ton sind in 
BASIC voll auszuschöpfen. 
An/Aus-Schalter am Gerät, 
RESET-Taste für Warm- 
Start. Anschluß für Farb- 
monitor mit "composite Vi- 
deo” und Toneingang. Über- 
sichtlich angebrachte Cur- 
sor-Steuertasten. 


Summe: 

Ein empfehlenswertes Gerät 
für den Computer-Hobby- 
isten. Man bekommt sehr 
viel geboten für sein Geld. 
Wer gerne einen guten Ho- 
mecomputer haben möchte, 
andererseits aber eine erst- 
klassige Spielkonsole. wird 
bei der Auswahl nicht am 
BIT 90 vorbei kommen. Au- 
Berdem sollen die Erweite- 
rungen auch sehr preiswert 
sein. 


Zum Schluß: 

Für die Benchmark-Fana- 
tiker: Von der Arbeitsge- 
schwindigkeit her ist dieser 
Z-80-Rechner etwa mit dem 
ORIC oder dem TI 99-4A zu 
vergleichen und wesentlich 
schneller als der SPEC- 


NOVEMBER 1984 


TRUM. Das 


Andererseits: 
sagt so gut wie gar nichts aus. 
Wichtig ist hier: Das BASIC 
des BIT 9 erlaubt sehr. sehr 
schnelle Veränderungen des 


Bildes durch Befehle wie 
CALL CHAR und CALL 
CHRCOL. Was nutzt es ei- 
nem Computer, wenn er 10 
mal schneller rechnen, aber 
diese Befehle nicht simulie- 
ren kann? 


Das BIT 90 BASIC: 

ABS(,. ASC(. ATN(. AUTO. 
BYE. CALL. CALL CHAR. 
CALL HCHAR: CALL 
VCHAR. CALL SCREEN, 
CALL SPRITE: CALL 
SPRPTN. CALL CHRCOL, 
CHRS(.CLOSE +). CLEAR. 
CONT. COPY ON +). 
COPY OFF + ). DATA. 
DEL, DELETE +). DEFFN, 
DIM. EDIT. ELSE. END, 
EOF( +). EXP(. FOR. FRE. 


BN. GOSUB. GOTO. 
HEX$(. HOME. IN(. IF. 
INT(. INKEY$, JOYSTI(. 


LEN, LET, LIST. LLIST +). 
LPRINT + ). LOAD, LN(. 
LOGt, „NEXT. NEW. MU- 
SIC. MIDS. ON GOTO. ON 
GOSUB. ON ERR GOTO. 
OPN +). OPTIONBASE, 
OUT. PEEK(. PLAY. PLOT. 


Commodore: Kassette 
War olthe World. ........ 
Spectrum: Kassette 


Spectrum 48K 

Manic Miner 25,90 DM 
Omeiron....- ‚25.90 DM 
Orion ......- 25.90 DM 
Push-Off....... . 25,90 DM 
Thrust T,... 25.90 DM 
Tribble Trubble ‚25.90 DM 
auf Diskette: 

det Set WIy. @=eunnenoHnn 39.- DM 
Oxtord Pascal ..scersonun. 199,- DM 


POKE. POS, PRINT. 
PRTSCR +) RANDO- 
MIZE. READ. REM. RE- 
SUME, REC +), RIGHTS, 
LEFT$(. RENUM, RE- 
STORE. RND(. RUN, 
SAVE, SIN(. SGN(. SOR(. 
SPC. STEP. STOP. STR$t. 
TAB(. TAN(. TEMPO. 
THEN. TO. TRACE,. UN- 
TRACE. VAL(, WAIT. AND, 
OR. NOT, BLOAD, BSAVE 
+) Befehle sind nur bei an- 
geschlossenem Druckerinter- 
face (Centronics) verwend- 
bar. 
+) Befehle sind nur bei an- 
geschlossener Floppy-Einheit 
verwendbar. 

(R. Hülsmann) 


Exclusiv in Deutschland 


CPL 


Computer Plus Soft GmbH 


BAHNSTR. 22-26 


4220 DINSLAKEN 


39,- DM 
® 39, DM 
Commodore 64 
Jet Set Willy 29,90 DM 
Crazy Ballon 29,90 DM 
Dinky Doo . 29,90 DM 
Manic Miner 29,90 DM 
VIC 20 
Space Just 29,90 DM 
Space Swarm. .. 29,90 DM 
Perils of Willy 29,90 DM 
BASIC AID auf Cartridge .... 179,- DM 
Quickshot Joystick I. .444. +» 39,- DM 
Staubschutzhaube 1. (84 ,.... 14,- DM 

@2:02134/7905 


Händleranfragen erwünscht 


- 


Ich bestelle: 


zzgl. 3,- DM Versand 


c-4 D VIC-W D Spectrum O 


Datum, Unterschrift 


BESTELLCOUPON 


Nachnahme DD Verrechnungsscheck D 


Preis: 


Gesamt: 


di 
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Heute wollen wir eine 
neue Serie beginnen. 

' Wie der Titel schon 
sagt, handelt es sich um 
Schachprogramme. 
Diese Serie soll zeigen, 
wie weit die heutigen 
Schachprogramme in 
der Lage sind, einen voll- 
wertigen Gegner zu er- 
setzen. Außerdem soll 
ein Vergleich zeigen, 
wie stark sie sind, 
welche Rechenzeiten 
sie benötigen und ähn- 
liches mehr. 


Dieses Mal spielen der 
Spectrum mit "Chess the 
Turk” gegen den Commo- 
dore 64 mit "Caissa”. Caissa 
hat zwar den Vorteil. daß es 
auch die Bedenkzeit des Geg- 
ners ausnutzt, was man ihm 
sicher nicht als Nachteil an- 
lasten kann. 


Nun zum Spiel: 
Caissa: weiß 
Chess the Turk: schwarz 


Caissa zeigtsich schon in der 
Anfangsphase sehr agressiv. 
Chess the Turk dagegen 
spielt cher auf sicher. Bevor 
das Spiel begann, wurde 
Caissa auf 90 Sekunden 
Denkzeit eingestellt (Caissa 
läßı übrigens eine Einstel- 
lung von 4 Sek. bis 10 Stun- 
den zu). Chess the Turk er- 
| laubt nur die Eingabe vom 
Schwierigkeitsgrad und zwar 
von 0-6. Wir stellen ihn auf 
| Stufe 3. um ebenfalls 90 
| Sekunden durchschnittliche 
Spielzeit. so die Anleitung, 
zu erhalten. Nach dem9. Zug 
zeigen sich schon leichte 
Stellungsvorteile für weiß. 
Danach wird das Spiel etwas 
ruhiger. Beide Computer 
| kümmern sich nun um ihre 
Entwicklung. Im Il. Zug 
macht Caissa die kleine 
Rochade trotz geöffnetem 
Bauern. - Vielleicht etwas 
leichtsinnig. aber immerhin 


Schachprogramme unter sich 
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verschafft er sich dadurch 
eine geöffnete Turmlinie. In 
der Mittelphase (um Zug 12), 
sieht es so aus, als würden 
sich beide etwas zurück- 


NOVEMBER 1984 


halten. um den anderen bes- 
ser abschätzen zu können. 
Caissas Vorausberechnun- 
gen erreichen etwa 4-5 Halb- 
züge: bei Chess the Turk ist 


diesleidernichtsichtbar. Die 
Darstellung der Figuren ist 
übrigens. meiner Meinung 
nach. beim Spectrum etwas 
besser, was aber wohl ein 
subjektiver Eindruck ist. Bei- 
de Programme greifen im- 
mer nur mit einzelnen Figu- 
ren an, so daß ein größerer 
Angriff nicht zustande 
kommt. Bis zum 16. Zug hat 
weißübrigens nurhalbsoviel 
Zeit gebraucht. wie Chess the 
Turk. was wohl sicher darauf 
zurückzuführen ist, daß 
"Caissa” im voraus denkt. 
Caissa tut dies meiner An- 
sicht nach, nach folgender 
Methode: 

Caissa nimmtan, daß der be- 
ste Zugseiner Meinung nach 
gespielt wird und überlegt 
sich darauf die Antwort. 
Wird nun dieser Zuggespielt. 
so kann es vorkommen. daß 
Caissa sofort antwortet. 
Wird aber ein anderer Zug 
gespielt, so verwirft es seine 
Berechnungen und beginnt 
von vorne. Beide Programme 
zeichnen sich durch gut über- 
legte Spielweise aus, so daß 
auch geübte Spieler ihre 
Schwierigkeiten haben wer- 
den. Nach dem 47. Zug fängt 
Caissa plötzlich aus uner- 
klärlichen Gründen von 
vornean. Möglicherweise lag 
es an unserem SX-64: ein 
tragbarer C-64 mit einge- 
bauter Floppy und Bild- 
schirm. Diese hat nämlich 
die merkwürdige Eigen- 
schaft hin und wieder 
abzustürzen. 

Zurück zum Spiel: Wirbefin- 
den uns mittlerweile im 
Endspiel. Beide Programme 
zeigen nun deutliche Schwä- 
chen. die wohl hicht sein 
müßten. aber eine alte Krank- 


‚heit von Schachprogrammen 


ist. So werden Züge gespielt, 
die außer einem kleinen 
Schach nichts bringen. Erst 
langsam erkennen beide Pro- 


- gramme, daß es nun auf die 


Bauern ankommt. Aber statt 
vorzurücken. um sich eine 
Dame zu holen, sind beide 
damit beschäftigt. die geg- 
nerischen Figuren zu fres- 
sen. Im 16. Zug allerdings 
überrascht Caissa (im 7. 
Halbzug  vorausdenkend) 
durch ein berechtigtes Turm- 
opfer. Eine seltene Ange- 


wohnheit unter Schachpro- 
grammen. Nun da, sich das 
Feld etwas gelichtet hat, zeigt 
Caissa, wer der Meister ist, 
obwohl Chess the Turk noch 
Chancen auf ein Remis hat. 
Auch im 25. Zug begeht the 
Turk den Fehler, den geg- 
nerischen Bauern nicht zu 
nehmen. Caissa hätte nun die 
Chance, sich eine Dame zu 
holen. Stattdessen bemäch- 
tigt er sich des letzten schwar- 
zen Bauers, Der schwarze 
König ist nun allein. Im 30. 
Zug endlich erkennt Caissa, 
daß er noch einen Bauern 
hat, den es vorzuziehen gilt. 
Dachte man nun, Caissa 
hätte wahrgenommen, daßer 
nurnoch mit Hilfe einer Um- 
wandlung des Bauern gewin- 
nen kann, so ist man doch 
sehr über den 35. Zug er- 
staunt, Im 36. Zug fängt er 
sich und zieht ein. Auch sein 
nächster Zug G8-B8 läßt er- 
kennen, daß seine Program- 
mierer gut Schachspielen 
konnten. 

Alles in allem muß man sa- 
gen. daß wenn das Endspiel 
schöner gewesen wäre, es 
eine gute Partie war. die 
durch unsere Zugliste, für je- 
den nachspielbar ist: 


Folgende Programme wer- 
den übrigens an unserem 
Turnier teilnehmen: 


C-64: Colossos 
Caissa 
Grandmaster 
Sargon II 


Spectrum: Chess the Turk 
Masterchess II 
Psion-Chess 

The Chess Player 


ZX-81: Psion-Chess 
ZX-Chess II 


Orie I: Oric-Chess 
+ 
Dragon: Cyrus Chess 


Falls noch der Wunsch be- 
stehen sollte, andere Schach- 
programme mitspielen zu 
lassen. so können wir Ihnen 
diesen Gefallen nur dadurch 
tun. wenn Sie uns Ihr Schach- 
programm leihweise zur Ver- 
fügung stellen. 

(hd) 
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Fighter- Command 


für den TI-99/4A Extended Basic 





Stellen Sie Ihren Monitor oder Fernseher nochmals ein, damit Sie 
den guten Ton und die Grafikeffekte von Fighter-Command 


genießen können. 


Sie steuern einen Jagdbomber, der ge- 
gen Panzer, Abfangjäger und Schiffe 
kämpfen muß. 


Phase 1: 

Angriff der Panzer Zwei Panzer, aus- 
gerüstet mit Fliegerabwehrkanonen, 
greifen Sie an. Ihr Jagdbomber (mit 
Senkrechtstarteigenschaften) kann 
sich dagegen wehren, indem Sie Bom- 
ben auf die Panzer werfen, die durch 
Drücken des Feuerknopfes ausgelöst 
werden. 

Für einen getroffenen Panzer erhalten 
Sie 100 Punkte. Treffen die Panzer aber 
Sie, dann wird Ihnen eines Ihrer 5 
Flugzeuge abgezogen. 

Der Senkrechtstarter bewegt sich auf 
und ab (Joystick). Sie können das Flug- 
zeug beschleunigen (Joystick nach 
rechts) oder abbremsen bzw. rückwärts 
fliegen (Joystick nach links). 

In den Boden dürfen Sie Ihr Flugzeug 
natürlich nicht rammen. Wenn Sie 
1100 Punkte erreicht haben, geht's 
weiter im Programm. 
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Phase 2: 

Nun wird’sschwieriger. Drei Abfangjä- 
ger greifen an. die sich ebenfalls wie Sie 
im Tiefflug befinden. Mit feuerspeien- 
den Kanonen kommen sie Ihnen 
entgegen. 

Aber Sie sollen sich ja nicht gleich ab- 
‚knallen lassen. Schießen Sie den Jägern 
einfach eine Ladung Blei aus Ihren 
Maschinenkanonen entgegen (durch 
Drücken des Feuerknopfes). Wenn Sie 
10 Abschüße gemacht haben, geht es 


weiter in Phase 3. 


Phase 3: 

Nun befinden Sie sich über dem offe- 
nen Meer. Zwei kleine Schnellboote 
(noch groß genug um tödliche Flag zu 
tragen) beschießen Sie. Sie setzen wie- 
derBombenein um nach 10 versenkten 
Schiffen zur nächsten Aktion zu 
gehen. 





Phase 4: 

Phase4 ist wie Phase2, nur die Marine- 
flieger haben diesmal etwas gegen Sie. 
Anmerkung: Es gibt Blindgänger in der 
Munition beider Seiten. 


Variablenliste: 

A: Variable für 
Schleife 

P: Punkte 

R: Flugzeuge 

HS: Highscore 
1,Y,C: Laufvariablen 
X,Y: Joystick 

GUT: Variable zur Aktionsansteue- 
rung (wenn bestimmte Punktzahl er- 
reicht nächste Phase) 

X1,Y1: Spritepositionen 
AA,BB,BUM,C: Diverse Treffervaria- 
blen 

A1,B1,A2,B2 usw.: Spritepositionen des 
Gegners 

COL: Farbbestimmung 

A: Zähler für Aktionsdurchgang 

K: Tasiatur, Feuerknöpfanzeige 

S: Statusvariable 


READ (Sound)- 
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100 ! FIGHTER-CONMAND 
En 2 2 2 2 ZZ ZZ EZ SS 2 2 
(C) STEFAN SCHAPER 
110 GUT=1000 
120 ECALL CHARI9E."SCA2I1AIAI 
714250") 
150 CALL CHARLSS. "0104200058 
440201010244580024000C045008 
ABOSCAECECOREIOB19404401 
0” 
140 CALL CHAR (40,"0104200058 
440201" ,41, *IFSFEFBOEFASEF", 
42."578A14788989999D" ,43 
»"FFFFFFOLFESSFE") 
150 CALL CLEAR 3: DISPLAY AT 
15,D:’FIGHTER COM 
MAND" 
160 DISPLAY AT(3,3):"" STEFA 
N SCHAPER* 
170 FOR I=1 T0 35 :: READ A 
ı? CALL SOUND(100,A,0):: NEX 
T1 
180 CALL SDUND (600, 1000, 1) 
190 DISPLAY AT(20,5)2 "PRESS 
FIRE TO START !" :3 CALL KEY 
11,K,5):: IF Ki>18 THEN 
190 
200 Reä 2: P=N 3: AllTs1n0o 
210 RANDOMIZE 
220 CALL CLEAR :: CALL SCREE 
N{3} 
250 CALL CHAR(140,"00BIC3E?7F 
FFFFFFF") 
240 CALL HCHAR(24,1,140, 32) 
250 CALL MAGNIFY(S)s: CALL C 
HAR (120, *002030283C7FSFIF",1 
21,*1F",122, "00000000509 
OAEFF" 123, "FC") 
260 CALL"CHARIR4, "000000000 
000E500”",125,"",125, "0000000 
0000056", 127,*"} 
2709 CALL CHAR{12B, "000000402 
O100B0F*, 129, "IFSFEFBOEFASEF 
“150, "O00000000000FCFF" 
„IS1,."FEFFFFOIFESSFE") 
ZA0 CALL CHAR (132, "OOBOCOFEF 
FFECOBSO", 135, "*",134,"", 135," 
"} 
290 CALL CHARLISS, "000000804 
02010”, 137,"",138,"",139,"") 
300 COLe2 
310 CALL SPRITE(#1,120,13,90 
‚Ao) 
320 CALL SPRITE(#10,128,COL, 
175,200,0,-20,#11,128,COL,17 
3,110,0,-20) 
330 CALL JOYSTI1,X,Y)z=» CALL 
NOTION{#I,Y#-4,0) 
340 IF X=4 THEN WeWt-5 ELSE 
IF X=-4 THEN Wah#+S :: IF K- 
90 THEN W=-90 
Ss IF W330 THEN We50 
360 IF Wi-100 THEN Wa-100 
S70.CALL MOTIONIRIO, ON, #11, 
0,W 
380 CALL KEY(I,K,S):: IF K=i 
8 THEN GOSUB 500 ELSE TALL P 
OSITION{B1,X1,Y1) 
390 IF INTIRND+2)=1 THEN 605 
UB 580 ELSE 400 
400 CALL POSITION(WI2,AA,.BB) 
#3 IF ARCIO THEN CALL DELSPR 
ITE(#12,#15) 
#10 FOR I=10 TO 13 ı: EALL C 
DINC(HT,#1,16,0)3: IF O0 THEN 
550 
420 NEXT I 
#30 CALL POSITIONI#1.X1,Y1}: 
: IF X1>173 THEN 550 
349 CALL POSITION(#10,X2,Y2) 
s:. IF Y2<25 THEN CALL LDEATE 
1810, 173,240) 
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450 CALL POSITIONIM11,X3,Y3) 
ıt iF YS<25 THEN CALL LOCATE 
1#11,173,2A0} 

460 CALL COINC(#10,83,25,A): 
ı IF A THEN 740 

470 CALL EDINC(#11,05,25,8): 
» IF B THEN 7% 

480 CALL JOYSTI1,X,Y)se CALL 
MOTION(#I,Y#-4,0)1: CALL KE 
Yil,.K,5):: IF k=18 THEN 
GOsuB 500 

490 G0T0 330 

500 CALL POSITION{#1,X1,Yl): 
» CALL SOUNDI-500,-5,0) 

510 CALL SPRITEI#3,132,2,X1, 
Y1,30,-10) 

520 CALL POSITION(#3,AA,BB): 
ı FOR I=AA ID 173 STEP S& :ı 
CALL COINCI(810,823,19,5) 

ı: EALL COINEIW11,03,19,55): 
» IF 5 THEN 740 ELSE IF SST 
HEN 790 

530 CALL JOYST(1,X,Y)s32 CALL 
MOTIDNI(M1,Y#-3,0) 

540 FOR C=10 TO 13 :: CALL C 
DINC(NC,#1,15,0):: IF Q THEN 
650 

S50 NEIT.L ° 

S60 NEXT I 2: CALL DELSFRINE 
(#3): FOR Isi TO 4 1: NEXT 
1 :: CALL DELSPRITE(#12, 
#15) 

570 RETURN 

580 IF INTIRND#2)=O THEN RET 
URN ELSE 590 

570 CALL POSITIONW10,2,0,#1 
1,21,01):: CALL SOUND (-500,— 

7,0) 

&00 EALL SPRITE(#12,136,2,7+ 
1,0,-10,-20,#15, 156,2, 21+1,0 
1,-10,-20) 

&10 FOR I=1 TO 120 2: FOR C= 
10 TO 15 :: CALL COINE(WI, WI 
„15,A):: IF A THEN 490 : 

» CALL JOYSTI1,X,Y)ır CALLM 
OTION(#1,Y#-3,0) 

820 EALL KEYI1,K,S):: IF Kei 

8 THEN G0SUB 500 
&50.NEXT C :3 NEXT I 2: CALL 
DELSPRITE (812,015) 

640 60T0 350 

650 CALL SOUND(1000,-7,0):: 
EALL PATTERN(#1,38):: FOR I= 
1 IQ &0 2: MEXT 1.33 CAL 

L DELSPRITE (#1) 

660 CALL DELSPRITE (#3) 

#70 ReR-1 :: IF R=0 THEN 700 
ELSE 680 . 

&B0 DISPLAY AT(2,53)2"5HIPS"; 
R z» CALL PATTERN(#1,120) 23 

CALL LOCATE (#1,90,40) 

490 60TO 330 

700 CALL DELSPRITE(ALL):: DI 

SPLAY ATI1S,7)3 "GAME OVER" 

710 DISPLAY AT(20,3):"NEW GA 

ME Y OR N ?* 

720 CALL KEYIO,K,S)ı: IF S=0 
THEN 720 ELSE 730 

750 IF K=121 THEN 200 ELSE 5 
TOP 

740 CALL SOUND (300,-7,0) 

759 CALL PATTERN(#10,40):: F 

OR 1=1 TO 20 1: NEXT I 

760 CALL DELSPRITE(HIO, #3) :: 
PaP+100 3 DISPLAY AT(1,SI: 
"SCORE:"5P zı IF P>GUT T 

HEN 890 

770 CALL PATTERN(#10,128) 2: 
CALL LOCATEIH10,175,220):3 C 
ALL MOTION(#10,0,W) 

780: 6010 330 - 

790 CALL SOUND (500,-7,0)33 C 


ALL PATTERN(#11,40)1: FOR Im 

1 T0 20 23 NEXT I :s CAL 

L DELSPRITE(#11,5) 

800 P=P+100 ı3 DISPLAY ATt1, 

S)2"SCORE:"IP 31 IF PIGUT- TH 

EN 890 

810 CALL PATTERN(#11,128) 3: 

CALL LOCATE1#11,175,B0)::-CH 

LL MOTION(811,0,W 

820 6070 3350 

850 DATA 500,440, 294,1100,39 

3,310,200, 800,900, 1000, 1200, 
1000 

840 DATA 500, 800,874,190,700 

‚876,330, 123,560,827,2200,12 

00,350,210 

850 DATA 454,294,1100,494,11 
10 

860 DATA 120,900,610,B00 

870 CALL MOTION(#10,0,W,#11, 

0,4) 

880 6010 32767 

890 CALL MAGNIFY(S)s2 CALL D 

ELSPRITE (ALL) 

900 GUT=GUT+1000 

910 RESTORE :: FOR I=1 10 35 
ı3 READ A :: CALL SDUND(100 
«A,0)23 NEXT I 

920 CALL LOEATE(#1,90,40) 

930 CALL CHAR (95, "000000000E 
113SFFF*,97,"3F",98, "00000008 
183878FEFF",99, FE") 

240 CALL SPRITE(#10,98,2,90, 
190,#11,96,2,120,190,#12,95, 
2,50, 190) 

950 CALL SPRITE(#1,120,13,90 
30) 

950 CALL JOYSTti,X,Y)s3 CALL 
MOTION(#1,Y#-3,0) 

9709 CALL POSITION(#1,X1,Y1)3 
ı IF X19173 THEN 1330 

780 IF X=4 THEN Weh+-5 ELSE 
IF X=-4 THEN WaW+S 3: IF Wi- 
90 THEN W=-90 

990 IF W330 THEN W=30 

1000 IF W<£-100 THEN W=-100 
1010 CALL MOTION(#10,0,W,#11 
‚0,W,#12,0,W) 

1020 IF INTIRND*S)=0 THEN 12 
so 

1050 CALL KEY(1,K,S)ı: IF K= 
18 THEN GOSUB 1070 

1040 FOR I=10 T0 15 ı: CALL 
COINC(#1,81,15,0):: IF Q THE 


„N 1330 


1050 NEXT I 

1060 60TD 960 

1070 CALL SOUND(-400,-5,0):: 
CALL POSITION(#1,X,Y) 

10B0 CALL SPRITE(#3,124,16,X 
‚Y,0,80) 

1090 FOR I=0 TO 3 1: CALL CO 
INC(03,#10,10,Alıı IF A THEN 
11350 :+ CALL COINCIaS,n 
11,10,B)1ı IF B THEN 1170 ıı 
CALL COINEI#3,012,10,C):: I 

FE THEN 1210 

1100 FOR C=10 TO 15 :: CALL 
COINC(#1,00,13,0)3: IF O THE 

N 1330 

1110 NEXT C 

1120 NEXT I 3: CALL DELSPRIT 

Eiu3)1: GOTD 940 

1130 CALL PATTERN (810,36) 33 
CALL SOUND (500,-7,0):: P=P+1 

00 13 DISPLAY AT(1,3):"5 
CORE"P 

1140 IF P>GUT THEN 1380 

1150 CALL DELSPRITE(#10,03): 
» CALL PATITERN(#IO,F6)2: CAL 
L LOCATE (#10, INTIRND#1SO 
}+1,250) 


1160 G60TO 960 

1170 CALL PATTERN{#11,.36) 3: 
CALL SOUND(500,-7,0):: P=P+i 
00° 2: DISPLAY ATI1,S)1"S 
CORE"FP 

1180 IF P>GUT THEN 1380 s 
1190 FOR I=1 TO 30 ı: NEXT I 
22 CALL DELSPRITE(HII1,.#II:: 
EALL PATTERNIMI1, 95) 3 

CALL LOCATE {#1 1, INT{IRND*150) 
+1,250) 

1200 6070-950 

1210 CALL PATTERN{#I2, 56) 2: 
CALL SOUND(S00.-7.0)2: P=P+1 
00 :3 DISPLAY AT(1,5):"5S 
CDRE”:P 

1220 IF P>GUT THEN 1380 
1230 FOR I=! TO 20 s: NEXT I 
+ CALL PATTERN(#12,96):: TC 
ALL DELSPRITEIWI2,. #3): 
CALL LOCATE (#12, INTIRND® 150) 
+1,.250) 

1240 GOTD 960 

1250 FOR I=10 TO 12 :: CALL 
POSITION(#I.Al,Ri}z: CALL SO 
UND (400, -7,0) 

1250 FOR Y=13 TO 15 1: CALL 
SPRITEIWY,124,2,A1,B1,0,-60) 
»: NEXT Y 

1270 CALL JOYSTi1.X,Ydsı CAL 

L MOTIONIEI,Ye-J,0):: TALL K 

EyY(1,K,5):: IF K=18 THEN 
GOSUB 1070 

1280 NEXT 1 

1290 FOR I=10 TO 15 :r DALL 

COINC(#I,#1,19,0):: IF Q THE 

N 1330 :+ CALL JOYSTt1,.X 
«Y)zs CALL MOTIONIEI,Y#-3,0) 
»: CALL KEYI1,K,S) 

1500 IF K=1B THEN GOSUR 1070 
13510 NEXT I :: FOR 1=13 10 ı 

5 1: CALL DELSPRITEIHTI:: NE 

ıı 

1320 6010 960 

1330 FOR I=13 TO 15 ı3 CALL 

DELSPRITEI®I, #3): NEXT I 
1551 CALL SDUND (500, -7,0) 
1332 CALL PATTERN(#1,36):: F 

OR I=1 TO 30 22 NEXT I :: CA 

LL PATTERN(#1,120):: RuR 

- 

1535 IF R=0_ THEN 1360 

1340 DISPLAY AT12,3):"5HIPS" 
IR s3 FOR I=13 TO 1$ 33 CALL 
DELSPRITE(#1, MI): NEXT 

1 

1350 CALL PATTERN(#1.120):: 

CALL LOCATEI#1,90,40):: GDOTO 
960 

1560 CALL DELSPRITE(ALLISS D 
ISPLAY AT(13,3):"GAME DVER" 
+ DISPLAY ATI2O,SI: "NEN 
GAME Y OR N" 

1370 CALL- KEYLO,K,SI:: IF 5= 

0 THEN 1370 :: IF K=121 THEN 
200 ELSE STOP 

1380 CALL CLEAR :ı: CALL SCRE 

EN(B):: CALL CHAR(IAO, "00608 

DIBFFFFFFFF") 2 CALL HCH 

ARI24,1,140,32) 

1390 CALL CHAR(I2B,"",129.”4 

ORDIFFFFFIFIFOO" 130,"", 131, 

"B2DCDBFFFEFCFBOO") 

1400 CALL CHAR (40, "002000423 
1280502" ,41, *A02DIFFFIFZFI10O 

".42,.°0020084106281020", 

43, "BRDCDBFFFEFCFBOO") 

1410 AuA+l 1: IF A/ZXDI OR A 

/2<>2. THEN 310 ELSE 220 :: I 

F A/2<>1 THEN COL=15 ELS 

E COL=2 

1420 E070 310 
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für den TI-99/4A 
Extended Basic 


Beim Eintippen des recht umfang- 
reichen Listings, welches den Ar- 
beitsspeicher des TI-99/4A na- 
hezu komplettiert, kann es bei 
einigen Zeilen vorkommen, daß 
der Cursor ansteht”. In diesem 
Fall einfach ”Enter” drücken, 
obwohl die betreffende Zeile 
noch unvollständig ist, eine et- 
waige Fehlermeldung bitte igno- 
rieren, anschließend ”FCTN” 
und "REDO"” drücken und so 
die Zeile beenden. 

Nach dem Start mit "RUN" (Alpha- 
lock-Taste lösen) erscheint der Bild- 
schirmaufbau und der gewünschte 
Schwierigkeitsgrad ist mit "Enter" ein- 
zugeben. 3 Schwierigkeitsstufen sind 
möglich: 

l: ist zum "Kennenlernen" und ganz 
einfach zu gewinnen, da Herkules ge- 
nug Geld hat. 

2: auch noch einfach 

3: man muß schon aufpassen, um nicht 
vorzeitig pleite zu gchen. 

Danach den Feuerknopf der Fernbe- 
dienung drücken um das Spiel zu 
starten. Kurze Zeit nach Eingang er- 
scheinen 3 Tempel. Herkules und jede 
Menge schrecklicher Ungeheuer: 2 
grausige Spinnen. 4 Krokodileschwim- 
men im Fluß der Unterwelt namens 
"Acheron",dasjenseitige Ufer wird von 
einem feuerspeienden Drachen be- 
wacht und die Tempel vom 3-köpfigen 
Höllenhund "Zerberus”. 


1) Herkules: 


Wird mit Fernbedienung | (Joystick 1) 7 


gesteuert, jede Richtung ist möglich. 
Ziel des Spieles ist, unter3 Tempeln, je- 


nen des "Hades” zu zerstören, um zum 
"zoldenen Vlies” zu gelangen. Die Zer- 
störung des jeweiligen Tempels tritt ' 


(computergesteuert) ein, wenn sich 
Herkules genau unter den Torbogen 
stellt. Wie seinerzeit in den legendären 
"Herkules-Filmen”, im Kino, stürzt der 
betreffende Tempel mit Getöse ein. 
Wurde der richtige Tempel zerstört, 


liegt das goldene Vlies Herkules zu & 


Füßen und ein Lied erklingt. 


Wurde aber verschentlich (man muß es 
ja erraten) der falsche Tempel zerstört 
gibt es 500 Drachmen Abzug vom © 


Reisespesenkonto des Herkules und er 
wird wieder an seinen Ausgangspunkt 
zurückversetzt. Das Spiel ist aus. wenn 
Herkules blank ist oder er wird von ei- 
nem der zahlreichen Ungeheuer er- 


wischt. Im ersten Fall wird er von Zeus 


zur Strafe, weil er alles verpraßt hat in | 


einen schäbigen Pleitegeier verwan- © 
delt, welcher in der oberen. Bild- 7 
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schirmmitte nach einigen hilflosen 
Flügelschlägen sitzen bleibt. 

Im zweiten Fallwird Herkulesvon dem 
entsprechenden Ungeheuer, in jeweils 
eigener Manier, beseitigt. Die Spinne 
überfällt ihn, das Krokodil frißt ihn 
ganz einfach auf, der Drachen bespeit 
Herkules ausgiebigst mit Feuer und Zer- 
berus, der dreiköpfige Höllenhund, beißt 
ihn. 

Da nach dem Start ein Durchkommen 
zu den 3 Tempeln völlig unmöglich ist, 
muß sich Herkules’des "Orakels von 
Delphi” bedienen. 


2) Das Orakel von Delphi: 

Durch Drücken des Feuer-Knopfes 
(Acı.-Taste) erscheint am unteren Bild- 
schirmrand ein Örakelspruch, welcher 
den Ablauf des Spieles (Geschwindig- 
keit der’ Sprites) wesentlich beeinflußt. 
Anschließend wird eine meist unver- 
schämte "Orakelgebühr” in Rechnung 
gestellt, welche vom Reisespesenkonto 
des Herkules abgezogen wird, dann 


werden zwei Gegenstände oder Waffen 
ausgegeben. welche Herkules zur Be- 
seitigung der Ungeheuer verwenden 
kann und der Saldo des restlichen Gel- 
des wird angezeiet. 

Aber das Orakel ist meist zweideutig. 
launisch und schadenfroh. denn wenn 
Herkules von einem Ungeheuer er- 
wischt wird. stellt dies das Orakel 
boshafter Weise auch noch schriftlich 
Test. 

Ist das Orakel übel gelaunt, kommt es 
vor, daß.der freche Orakelspruch: "höre 
meine Lehren. nun kannst Du Dich 
zum Hades scheren", erscheint und ge- 
meiner Weise werden keine Waffen 
ausgegeben aber dafür 70 Drachmen 
"Orakelgebühr" verrechnet. Es kommt 
aber auch vor, daß das Orakel gut auf- 
gelegt ist und gratis Waffen ausgibt. 
Mit den beiden ausgegebenen Gegen- 
ständen (Faß. Speer. Amphore, Axt 
oder Felsbrocken) kann man die Un- 
geheuer bewerfen und dieselben gegebe- 
nenfalls zum Verschwinden bringen, 
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um möglichst unbehelligt zuden Tem- 
peln zu gelangen. 

Allerdings darf'man, je nach dem ge- 
wählten Schwierigkeitsgrad. das Ora- 
kel nicht zu oft befragen um wieder 
neue Waffen zu erhalten. da das Orakel 
gebührenpflichig und Herkules 
pleite ist. ist auch das Spiel zu Ende. 
3) Die Fernbedienung hat mehrere 
Funktionen: 

Feuerknopf (Act.-Taste): 

Start des Spieles am Anfang und 
Ende, 

Während des Spieles wird das Orakel 
befragt um auch Waffen zu erhalten. 
Joystick: 

Steuerung für Herkules in jede belie- 
bige Richtung. Achtung! Wenn Herku- 
les durch den "Acheron” schwimmt ist 
zu beachten. daß er wesentlich langsa- 
mer schwimmen als laufen kann. Es 
ragt zwar nur sein Oberkörper aus dem 
Wasser aber die Krokodile sind sehr 
gefährlich. 
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Steuerung der Richtung für den Wurf 
und Auslösung: 
Es sind nur drei Richtungen möglich: 


"Senkrecht.nach oben, schräg nach links 


oder rechts (45 Grad). Herkules-mar- 
schiert zu einem der beiden Gegen- 
stände..... bei Berührung erhebt er 
denselben, ab diesem Zeitpunkt, be- 
stimmt die Stellung des Joysticks die 
Richtung des Wurfes und löst densel- 
ben auch aus. Wenn man sich zu lange 
zum "Zielen" aufhält, verschwindet der 
bereits zum Wurf erhobene Gegen- 
stand ersatzlos. Ansonsten wäre ja das 
Spiel nicht zu einfach und man könnte 
die Ungeheuer leicht serienweise ver- 
nichten und Orakelgebühren sparen. 
Es ist komlortablerweise nicht not- 
wendig. wenn manschräg nach oben in 
eine der beiden Richtungen werfen 
möchte, die genaue 45 Grad Stellung 
des Joysticks anzupeilen, nach rechts 
oderlinks gedrückt genügtes auch und 
bewirkt dasselbe. Oder für senkrecht 





nach oben, kann auch der Joystick 
nach unten gedrückt werden. derSchuß 
geht trotzdem nach oben los. 

Dies ist eine wesentliche Erleichterung, 
da die TI-Joysticks keine Raststellun- 
gen aufweisen unddie45 Grad Stellung 
nicht immer leicht zu treffen ist. und 
dann der Wurf versehentlich in die fal- 
sche Richtung losgehen würde, 


Wichtige Variablen: 

SG: Schwierigkeitsgrad 

RS: Restart 

OO: Orakel übel gelaunt 

G: Orakelgebühr 

S: Geschwindigkeit 

O$: Orakelspruch 

D: Kontostand (Drachmen) 
HD:.Leitzahl für richtigen Tempel 


.OA: Orakelbestimmung:! 


Q: Orakeltest — - 
AS, B$, CS: Segmente Sprite/Herkules 


Sprites: 

1: Herkules 

2,3: Spinnen 

4,5,6,.7: Krokodile 

8: Drachen 

9: Zerberus 

10: Feuer für Drachen 

11,12: Waffen und Gegenstände 


Ablauf: 

110-170: Zeichendaten 

200-220: Zeichen definieren 

230-290: Bildschirmaufbau 

300-370: Titel, Prolog, Abfrage SG 
400-430: Diverse Variable 

440-460: Tempel zeichnen 

470-480: Sprites (Ungeheuer, Herku- 
les) 


500-520: Spielerschleife 


540-590: Coine Herkules/Ungeheuer 





(Auswertung) 


47 610-680: Wurf nach Ungeheuer 
; 690: Ungeheuer getroffen, Absturz 
ı 710: Coinc Herkules/Ungeheuer 
= 720-800: Bewegung Herkules. Orakel 


fragen, Anzeige/Saldo 


Z 820: wie 710 
# 830-850: Formänderung Ungeheuer, 


Drachen speit Feuer 
870: wie 710 


£ 880: Formänderung Ungeheuer 


900-920: Herkules geht schwimmen 
oder an Land 


£ 930-1220: Orakel 


1230-1260: Spinne überfällt Herkules 
1270-1300: Krokodil frißt Herkules 
auf 


# 1310-1350: Drachen bespeit Herkules 
K mit Feuer 
= 1360-1400: Zerberus beißt Herkules 


1410-1610: Tempelzerstörung, golde- 
nes Vlies. Musik 


- 1620-1650: Ende 
1660-1700: SUB Herkules ist pleite 
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110 DATA 000000000040807,381 

DOFO70301 , 182CIEIESBICFDFD,F 

FFEFCFEFCFESBSE, 0.000107 

BFIFDF7ESB, 182CIEIBZIET7BFEFC, 

FFFEFCFEFCFCSBTE 

120 DATA O0EOBSZEOBOZSSFF,O, 

OO003078CEFFFFFF , 0, SCIC3C5c5 

ESCSL7E ,7ESCICSCILIEIEITE 

„OOOOFFFFIBFFFFFF ,SFIFFFFFIE 

FLFÖC,FEFEFFFF7ESFOFOS 

150 DATA 48220A9004540112,0, 

GO0OOOODOFFAASSFF ,0,00003078C 

EFFFFFF,0,010701070F0107 
IF.01071F3SFO1SF7FOL ,B0OEOBOEO 

FOBOEOFB, BOEOFAFLBOFLFEB 

140 DATA O3S1E071DO1033BEB, SB 

EFOF1F1F143822, 8080800010979 

ER7,FOEOFEFFFECAIBILISFFF 

FFFFFFFFFFFFF, 0, 000000E10C, 0 

0000651, 0351E030101055BEB 

150 DATA 3BOFOFIFIF142438,80 

8080001C979CB, F2EIFEFEFED414 
12,0, 00038LE0O1F001C03,0, 

VECO0073805007,0103070703070 

919,3F2B2A2928282828 

lö0 DATA BOCGEÜEOCVEOFOIE, Fc 

D4549414141414,0103070703070 

919, 3F4B4A9190484824 ,30C 

VEDEOCLVEO909B,FCD25289091212 

24,0303031 93F4F4743 

170 DATA 030303193F4F4743,80 

SOBOSOFBESCBB4 , 0303031 93FAF4 

733, 80B08030F8E8C0884 

180 ! 

190 CALL CLEAR»: CALL SCREE 

N(8):3 CALL MAGSNIFY(S)I2: CAL 

L COLOR(3,5,18,4,5,18,9, 
15,8,10,15,5,11,15,4):: FOR 
l=5 T0 8 :: CALL COLOR(I,I6, 
14)2: NEXT I 

200 RESTORE 110 :: FOR 1-36 

TO 47 :: READ A$ :: CALL CHA 

RiT,A$)z: NEXT I 

210 FOR 1=58 TO 54 :: READ A 

% :: CALL CHAR(T,A$):: NEXT 
1 »: FOR 1=92 TO 124 3: 

READ A$ :3 CALL CHARIT,AS):: 
NEXT I 

220 FOR I=128 TO 134 STEP 2 
ı: READ As :: CALL CHAR(T,A$ 
)s3 NEXT I 

250 FOR X=0 TO 1 :: FOR Z=0 
TO 20 STEP 20 :: FOR J=0 TO 
1 s: FOR Ii=2 T0 10 STEP 

2 CALL HCHARI(2+X, Ir)+2.96 

+{J#2)+%) 

240 NEXT I 3: NEXT J =: NEXT 
Z :: NEXT X :: DON WARNING N 

EXT 

250 FOR 3=0 TO 1 STEP 1 
OR I=12 TO 20 STEP 8 3: 
HCHAR (3, 1+J,9o+iJ#2) 3): 
NEXT I :: NEXT J 

250 CALL HCHAR(4,1,104,192): 
» CALL HCHAR(10,1,105,192):: 
CALL HCHAR115,1,112,224 

n, 

270 FOR J=23 TO 24 :: FOR I= 
ı TO 31 STEP 50 :: CALL HEHA 
RtJ,1,112,2):2 NEXT I :: 
NEXT J 

280 CALL HCHAR(23,3,894,28):: 
CALL HCHAR(24,5,54,28) 

290 FOR I=1 TO 40 :: FOR J=1 


ss: F 
CALL 


* 
* 
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06 TO 107 3: ECALL HEHARLINTE 
RND#5) +10, INTı\RND#S2) #1, 
J)ss NEXT 2 2: NEXT I 
300 DISPLAY AT(S,535IZE(17): 
"EHBESREKELIELGERSE" :: DISPL 
AY ATI7,A)SIZEt21):"@SCH 
WIERIGKEITSGRADEE" 
510 DISPLAY ATi17,5)SIZE(19) 
ı "EL@BGEZOOO@DRACHMENE" :: DI 
SFLAY ATI19,DSIZEIIN:E" 
E288@1500EDRACHMENE" :: DISF 
LAY AT(21,5)5I2ZE 119) : "aSeeeı 
VOOO@EDRACHNENE®" 
320 DISPLAY AT(24,1): "@ueReR 
@VONEGUSTAVEVL.KEEBEEBE" :: A 
CCEPT AT(22,14)BEEP SIZE 
{13VALIDATE("123%):5G :: DIS 
FLAY ATI7,3)5IZE (22) : "HOERE® 
HERMES@BOTSCHAFT" 
350 DISPLAY AT(17,1):"SCHREI 
TE@UEBER@DENGACHERDNG@EOGHERK 
ULES@UNDEZERSTOERE@DENTE 
MPEL@SDES@HADESEIN@WELCHEMEDA 
SEGOLDENE@VL TESAVERBORGENE" 
340 DISPLAY AT121,1) :"DAS@WE 
ISE@DRAKELESOLLSTEDUGEBBEFRAG 
EN@UNDEDEINE@FEINDE@@&SI 
NDE@DEM8SRE ICHSHADESEGENT SSB8®@ 
BBGALTETASTERDRUECKENEEERE" 
350-EALL SOUND(500,110,0,440 
.0,523,0):: FOR I=1 TO 300 : 
» CALL KEY(1,K,ST}:: IF 
ST THEN 370 
360 NEXT I 
570 EALL HEHARII7,1,112,192) 
»: DISPLAY AT(23,1)ıRPTS("e@* 
‚Sb):: IF ST=0 THEN 330 
ELSE CALL HCHAR1S5,1,104,96) 
580 FOR 1=17 TO 21 STIER 2 :: 
CALL HCHAR(1,7,112,19):: NE 
XT I 2: CALL HCHAR(22,1& 
„112) 
390 ! 
400 A$="2312060504040400” :: 
B$="BA480C0OC04040408" 1: CH= 
"2312050C0C0B183" ı: CAL 
L CHAR(129,A$,131,B$,133,C$, 
135,B$)3:5 T1,12,13=1 ı: RS=i 
410 RANDONIZE :: HD=INT(RND* 
3)+1 :: IF SG=1 THEN D=2000 
ELSE IF 56=2 THEN D=1500 
ELSE IF 56=3 THEN D=1000 :r 
X,Y=0 
420 CALL CHAR(125,C0$,125,"82 
BZBZLAFCEOLOB", 127, "BOSOLOCO 
4040408”) 
430 R$="@DLUIEHASTEJETZTENUREM 
EHREBLELERSARBERRSAEREDRACHM 
ENBEeBBEeR®" 
440 FOR J=1 TO 3 :: FÜR Iaü 
T0 20 STEP 10 :: FOR Z=4 T0 
B STEP 4 :: TALL HEHARCI 
„2+1,61-J,2)2: NEXT Z :: NEX 
LI 3: NEXT J x 
450 FOR Z=& TO 25 STEP 10 :: 
CALL HCHAR(1,Z,61)2: CALL H 
CHAR(1,2+1,52)2: NEXT Z 
460 CALL SPRITE(#8,356,2,54,1 
„0,12,#7,44,4,80,240,0,-12,# 
6, 92,4,80,120,0,-12,#5,4 
4,15,104,180,0,-6) \ 
470 CALL SPRITE(#4,92,15,104 
‚60,0,-5,#9,100,7,32,.240,0,- 
12,#2,116,2,124,1,0,8,#3 


‚120,18,124,128,0,8) 

480 CALL SPRITE(#1,128,2, 150 
.128):: DISPLAY AT123,1): "08 
@DAS@DRAKELSVONSDELPHIE® 


Ss10 IF D<10 THEN CALL PL(RS) 
520 GOSUB 820 :: GOSUB 710 : 
» GOSUB 870 :: IF RS THEN 50 
0 ELSE 400 

s50 ! 

540 ! COINC 

350 CALL DISTANCE (#1, #11,D6) 


‚»: CALL DISTANCE (#1,#12,DP): 


» IF DG<324 OR DF<S24 TH 

EN RETURN 

550 CALL MOTIDN(#2,0,0,#3,0, 
0,#4,0,0,#5,0,0,#6,0,0,#7,0, 

0,#8,0,0,#7,0,0,#10,0,0) 

:: FOR.J=e2 T0 9 

570 TALL COIND (81,89, 20,C):: 
IF C THEN 590 

580 NEXT J 

590 IF J=2 OR J=3 THEN GOSUB 
1230 ELSE IF J=4 OR J=5 OR 

J=& OR J=7 THEN GOSUB 12 

70 ELSE IF .3=9 THEN GDSUB 13 

&0 ELSE GOSUB 1310 

&00 ! 

610 CALL COINCIALL,CIH:> IF C 
THEN 620 ELSE RETURN 

620 CALL COINC(#1,812,15,C1) 
»: ECALL COINC(#1,#11,18,02): 
» IF Ci OR C2 THEN 5350 E 

LSE RETURN 

&30 CALL DELSPRITE(#10):: IF 
£1 THEN SP=12 ELSE SP=11 
&40 CALL MOTION#1,0,0):: CA 
LL PDSITIDN(#1,YH,XH)22 CALL 
LOCATE {HSP,YH-18, XH+8) : 

» CALL PATTERN(#1,124) 

&50 FOR M=1 TO 40 :: NEXT M 
:: FOR Z=1 TO 20 := CALL JOY 
STt1,X,Y):: IF X ORY TH 

EN 570 

&60 NEXT Z :: CALL DELSPRITE 
INSP)z+ RETURN 

670 FOR T=1 TO 20 2: NEXT. T 
> CALL MOTION(BSP,-18, X#4.5 
)ss FOR I=1 TO A 3: FOR 

J=2 TO 9 := CALL CDINCIHSP,# 
J,20,C03}):: IF C3 THEN 590 
&80 NEXT J 3: NEXT I 2: CALL 
DELSPRITE(#5P)ı: RETURN 

&90 CALL DELSPRITE(HSP)T: FO 

R I=1 TO S :: EALL MOTION{#J 
+8,0):: CALL SOUND(100,1 

000-(20#1),0)2: NEXT I :: CA 

LL DELSPRITE (HJ): RETURN 

700 ! 

710 CALL CDINCLALL,C)H:: IF C 
THEN G0SUB 540 

720 CALL JOYSTII,X,Y)zz CALL 
MOTION(#1,-Y#2,X#2):: IF Y 

DR X THEN CALL PATTERN(# 
1,132)ELSE 790 

730 CALL POSITION(#1,YH,XH): 

» IF YH<B THEN CALL LOCATE(H 

1,8,XH)JELSE IF YH>1&0 TH 

EN CALL LOCATE(#1,180,XH)ELS 

E IF XH<8 THEN CALL LOCATE IH 

1,YH,8) 

740 IF XH>248 THEN CALL LOCA 
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TE(#1,YH,248)ELSE IF YH<116 
AND YH>S&S THEN GOSUB 900 

750 IF YH>18 THEN 780 

780 IF XH>40 AND XH<S& AND T 
1 THEN XH=44 ELSE IF XH>120 
AND XH<136 AND T2 THEN X 
H=124 ELSE IF XH>200 AND XH<S 
216 AND T3 THEN XH=204 ELSE 
780 

770 GOSUB 1410 

780 GOSUB 610 :: CALL PATTER 
N(#1,128):: CALL MOTION(#1,0 
‚O):: CALL SOUNDIS,-6,2) 

ı: IF XH>248 THEN CALL LOCAT 
Ei#1,YH,XH-6) 

790 CALL KEY(1,K,5TJ:: IF ST 
THEN GOSUB 930 ELSE RETURN 
800 D=D-6 :: DISPLAY ATI23S,1 
)zR® :: DISPLAY AT(24,2)5IZE 

(14+LENISTREIDIIH1:D :: DI 
SPLAY ATI24,2)SIZEt1)r"@" 2: 
CALL SOUND(300,110,0):3: RET 
URN 

Bio ! 

820 CALL COINCIALL,C)z:: IF C 
THEN GOSUB 540 

830 CALL PATTERN(#8,40,.#7,44 
,46,92,05,92,#4,44,#7, 100,82 
‚1168,#3,120):: CALL FPOSI 
TION(#8,YD,XDi:: IF XD>158 T 
HEN RETURN 

840 IF XD=0 THEN RETURN 

850 CALL SPRITE(#10,112,10,Y 
D-8,%XD+20,0,20):: CALL SOUND 
{-300,-7,0):: RETURN 

80 ! 

870 CALL CDINCIALL.CI:: IF C 


THEN GOSUB 546 


8380 CALL PATTERN (#8,36,67,92 
„#6,44,#5,44,#4,92,#9,108,#2 
„120,45,116):: CALL DELS 

PRITE(#10):: RETURN 

890 ! 

900 CALL MOTION#I.0,0)2: IF 
YH<10B XDR YH>&B THEN F10 E 

LSE 920 

910 CALL CHAR(129,As,131,Bs, 
133,0$,135,B%):: RETURN 

920 'CALL CHAR(129,"",131,"", 
133," ,135,"")23 RETURN 

930 CALL DELSPRITE(#10):: DO 

=Ü 

940 D$="HDERE@MEINESLEHRENGD 

USKANNST" :: E$="WASESOLLEIC 

HESAGEN@DUEDARFST”" :: F$ 
="HERKULESEHUETE@DICHEZEUSEE" 
GR" ;: G$="GUT@ODERBSCHLECHT 
SDEMEZEUSER" 


950 RANDOMIZE 1: OA=INT(RND» 


B)+1 23 IF DA=B THEN 950 :: 
DON OA G0T0 980,970, 980,9 
0,1000, 1010, 1020, 1030 

760 Os=DS&"DICHENUNGZUM@HADE 

S@SCHERENGE*" :: 6=70 3: Q=il 
»; 00=1 :: CALL DELSPRIT 

E(#11,#12):: GOTO 1040 

970 O$=DE&"NUNG@GOLDEBEGEHREN 

BuagaszaRee" :: S=INT(RND#2) 

+1 :: 6=200 :: Qe2 :: 60 

TD 1040 

780 0$=ESK"MICHSJETZTENUNGWE 
ITER@FRAGEN" :: S=INT(RND#&) 

+1 2: 6=0 :: 0=3 :: GOTO 
1040 


970 OS=ESL"ESEHEUTE@VIELLEIC 
HT@WÄGEN@AR" :: S=INT(RND*S) 
+2 :: Gel00 :: O=4 :: 60 

TO 1040 

1000 08=F$&" ZUERNTEDIR@ODER®E 
NICHT@@GBERRE" :: S=INTIRND#& 
)+1 2: 6=50 :: Q=5 1: GO 

TO 1040 ; 

1010 D$=Fst" ZUERNTEDIRGFUERT 
HTERLICH@E@EE" :: S=INT{RND#2 
I)+5. 3: 6=200 2: D=ä :: 6 

DTO 1040 

1020 0$=G$%&"1ST@HEUTE@ALLESE 
RECHT@B@@@GE" :: S=INTIRND#3 
)+1 :3 6=200 :: 0=7 2:6 

0OTO 1040 

1030 0$=6$&" IST@HEUTE@GARENI 
CHTS@RECHT@E" :: S=INT (RND#? 
I+3 2: G=100 :: 0=8 :: 6 

0OTO 1040 

1040 DISPLAY AT(23,1):0$ :: 
CALL SOUND (200,440,0,880,4,& 
60,0}: CALL MOTIONI(#7,0 
„=(4+1245)),#6,0,-(4+12#5)), 
#5,0, -12+t1NTI1.8*5})))) 

1050 CALL MOTION(#4,0,- (271 
NT (1.8#5))) ,#9,0,-{&+(INTti. 
5#5))),#2,0,8+I1NT(1.5%5) 
‚#3,0,8+INT(1.545)) 

1050 FOR N=1 TO 30 == CALL J 


DYSTt1,X,Y)22 IF X OR Y THEN’ 


1086 

1070 NEXT N 

1080 DISPLAY ATIZ3, 1): "EDIE® 
ORAKELGEBUEHR@BETRAEGTEEREEE 
GEEDRACHMENEINTLEMUSTER" 


ı: DISPLAY AT(24,2)SIZE (1+L- 


ENISTREIG))):G z: DISPLAY AT 

(24, 2)51ZEl1); "@" 

1090 IF 00=0 THEN 1110 

1100 FOR T=1 TO 200 +: NEXT 
»: RETURN 

1110 CALL DELSPRITEi#11,#12) 

:: FOR I=1 TOD 2 2: W=INT(RND 

#5)+1 tr ON W GOTO 1120, 

1150, 1140, 1150, 1150 

1120 Wsi1)="1F0OF0O7070FOFIFIF 

1FOFOFO707030307F8F0EOEOF?ZFS 

FIFIFIFSF2EOEOLOCDE" :: 

Pil=5 »: GOTO 1170 

1130 WS (I)="000000075F "KRPTS 

("EF",NENSFO7OOODOOEOFC"LRP 

TSUIF7".PU"FCE" :: PL) 

=7 :» boTO 117% 

1140 WELII="O10I05"LRPTS ("01 

"‚13)Kr00BO40"RRPTSL"O", 26): 

» Pil)=2 :: 60T0 1170 


« 1150 WS(1)="010101070F070101 


"ERPTS("O1",B)K"B2B7IFFFFFFF 
FFETBR"ERPTS("BO",7)z: P 
(T)=5 :: GOTO 1170 

1160 W$(1)="000103051A1DIDSD 
SB7BEDEDDBDFAFSFOOOOAOFOFBFO 
EC6E7&SBEFFEFIFTEBCFB" :: 
Pi1)=15 :: GOTO 1170 

1170 NEXT I 

1180 EALL CHAR(1565,W8(1),140 
‚Ws12)) 

1190 CALL SPRITE(#11,1T5, 1,1 
50, INTIRND#=215)+15):: CALL D 
ISTANCE{#11,81,DI)z: IF 
DI<1200 THEN 1190 

1200 EALL SPRITE(#12,190, 1,1 
50,1INTIRND*ZIA) +16): CALL D 


ISTANCE(#12,#11,E):: IF 
E<1200 THEN 1200 

1210 CALL DISTANCE (#12, #1,F} 
:: IF F<1200 THEN 1200 

1220 CALL COLOR(#11,Pt1),#12 
‚Pi2))z: RETURN 


- 1250 RS=0 :: DISPLAY AT(23,1 


): "@BEINESGRAUSIGE@SPINNE@HA 
TEG@EDICH@UEBERFALLENERE 
GEeggEee" 
1240-CALL DELSPRITE(#IO):: C 
ALL POSITION(#1,Y,X)22- FOR I 
=1 TO 5 s: CALL PATTERN( 
#3,120):: CALL LOCATEI(#J,Y.X 
)zz.CALL SOUNDI(-5,-2,0):: FÜ 
R T=1 TO 46 
1250 NEXT T ı: CALL PATTERNI 
#J,118)2: CALL LDCATE(RI,Y-1 
&,%X):: FOR T=1 TO AO 3: 
NEXT T :: NEXT I 
1280 CALL DELSPRITEIALLI:S C 
ALL E :: RETURN 
1270 RS=0 :: DISPLAY AT(25,1 
): "EIN@KROKDDILEVERSPEIST@D] 
CH&JETZT@EMITENOHLBEHAGEN 
EERaSaEe" 
1280 CALL POSITIONI#1,Y,X):: 
CALL DELSPRITE(#1,#10):: FO 
R I=1 TO 5 »: CALL PATTE 
RN(#9,92323 CALL LOCATE (HI, Y 
».X):2 CALL SOUNDI-5,-7,0) 
1290 FOR T=1 TO 30 :: NEXT T 
s: TALL PATTERN(#J,44)ı: FÜ 
R T=1 TO 50 8: NEXT T :: 
NEXT I 
1300 CALL DELSPRITEIALL):: EC 
ALL E :: RETURN 
1310 RS=0 :: DISPLAY AT125,1 
) : "BDEREBDESERDRACHENSSCHICK 
TE@EDICHBEJETZTEZUMEHADES 
BURGaEEe" 
1320 CALL POSITIONI#L.Y,X): 
IF X<4B THEN X=48 ELSE IF 
»232 THEN X=252 
1330 CALL DELSPRITE(#10):: C 
ALL LOCATEIH1,Y,X,#8,Y,X-32) 
ı: FOR I=1 TOS5S :: CALL 
PATTERN(#8,40):: CALL SPRITE 
(#10,112,10,Y-8,X-22,0,20) 
15430 CALL SOUNDI-200,-7,0):: 
FOR T=1 TO 30 :: NEXT T 2: 
CALL FATTERN(HB,SS):: CA 
LL DELSPRITE(#10):: FOR T=i 
TO 30 :: NEXT T =: NEXT I 
1350 CALL DELSPRITE(ALL):: C 
ALL E :: RETURN 
1560 RS=0 :: DISPLAY AT(23,1 
) : PYEDUEWIRSTEJETZTEVOMSHDELL 
ENG@BOHLINDSZERBERUSEGER] 
SSEN@RE" 
1370 CALL DELSPRITEIMI1O):: C 
ALL FPOSITION(#1,Y,X) 3: IF %< 
32 THEN X=32 ELSE IF %>2 
24 THEN %=224 
1380 CALL LOCATEIHI1,Y, X): F 
OR I=1 TO 5 :: CALL LOCATE(H 
FYaX-16)3: CALL SOUND ı- 
150,-2,0):: CALL FATTERN (#9, 
100)2:- FOR T=1 TO 30 tz NEXT 
T 
1390 CALL LOCATE (#9, Y,X+16): 
» EALL SDUNDI-150,-3,0):: CA 
LL PATTERNi#9,108):: FOR 
T=1 TO 30 :: NEXT T 2: NEXT 
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1 
1400 CALL DELSPRITE (ALL): EC 
ALL E z: RETURN 
1410 IF XH=44 THEN Ti=0 ELSE 
IF XH=124 THEN T2=0 ELSE IF 
XH=204 THEN T3=0 
1420 CALL DELSPRITEIH10O):: C 
ALL MOTIONI#1,0,0):: CALL LO 
CATE(#1,9,XH-2) 
14330 X=(XH-12)/B :: FOR I=X 
TO X#+5 :3 CALL KCHARI1,1,85) 
:: CALL SOUND(-200, -7,0) 
:sı EALL FATTERNiH1,124):: FÜ 
r Is! T0 ©. 
1450 NEXT T 3: CALL PATTERN! 
#41,128):: FOR T=e1 T0 30 2: N 
EXT T x: CALL HCHARLL,I, 
32})::2 NEXT I 
19350. FOR J=2 TO 3 :: FOR I=0 
TO 1 2: CALL HEHAR(J.X+1,55 
Ir» CALL PATTERNi#1,128) 
»: EALL SDUND(-200,-8,0):: F 
OR T=1 TO 306 :: NEXT T 
"1460 CALL PATTERN(#1,132) 2: 
CALL HCHAR (J,Xr1,32):: FORT 
=1 T0 30 2: NEXT T :: NE 
XT I 2: NEXT J 
1470 FOR J=2 TO 3 :: FOR I=4 
T0 5 :: CALL HCHAR(J,X+1,55 
Js: CALL PATTERN(#1,128) 
3 CALL SOUNDI=-200,-5,0) 1: F 
DR T=1 TO IS0 :: NEXT T 
1480 CALL PATTERN(#1,124):: 
CALL HCHARLI,X+1,32) 3: FORT 
=} TO 30 :: NEXT T :: NE 
XT I 2: NEXT J 
1490 IF HD=i1 AND Ti=0 THEN I 
500 ELSE IF HD=2 AND TZ=0 TH 
EN 1500 ELSE IF HD=3 AND 


T3=0 THEN 1500 ELSE 1510 


1500 DISPLAY. AT(25,1):"DERE@T 


EMPEL@DESEHADESEISTEHINDASSG 


OLDENE@VLIESBISTEDEING@" 

»: RS5=0 :: GOTD 1530 

1510 CALL SDUND(1000,220,0,5 
50,0,523,0):: D=D-500 :: IF 
D<i THEN RETURN 
1520 DISPLAY AT(25,1):R$ :; 
DISPLAY AT(24,2)SIZEII+LENIS 
TRE(DI)JED 3: DISPLAVTAT 
(24,2)5IZEt1):"@”" ı: CALL LO 
LCATEI#1,1680,120):: RETURN 
1530 FOR I=2 TO 12 3: CALL D 
ELSPRITE(#T)ı: NEXT I 3: CAL 
L EHAR(135, "001808080C0C 
SFFFFFEFOCOCOBOBLE0000000404 
OLICFEFFFFFEICOCOAO4OC") 
1540 CALL POSITION(#1,Y,X):: 
CALL SPRITE(#11,136,11,Y+20 
‚x ie 

1550. DATA 6,466,2,349,8,349, 
8,466,6,392,2,392,16,392,5,4 
40,2,466,8,523,8,440,4,4 
66,4,587,16,466 

1550 DATA 6,440, 2,466,8,523, 
8,523,4,587,4,466,8,523,8,52 
5,6,440,2,455,8,523,8,52 
5,4,587,4,466,8,525 

1570 DATA 8,523,6,466,2,440, 
4,392,4,622,4,587,4,523,8,46 
6,8,523, 8,587 , 

1580 DATA 5,455, 2,440,4,392, 
4,622,4,587,4,523,8,587,8,52 
3,8,45& 

1590 FOR J=ei TO 2 ;r RESTORE 
1550 :: FOR I=1 TO 14 :: RE 
AD A,B :: GOSUB 1810 t: 
NEXT I 3: NEXT J ı: FOR Il 


10 34 ::; READ A,B :: GOSUB I 
&ll 

15800 NEXT 1 :: CALL E :: RET 
URN 

1510 TALL SDOUND{AX50,8,0,B-2 
‚10,8+2,10):3 RETURN 

1520 SUB E 

1650 DISPLAY ATi2S5, 1): "B@NEU 
ES@SPIELESTARTEMITEACTEBETAS 
TE@UNDEBITTE@WARTENgERE" 
1840 CALL KEYI1,K,5T):: IFS 
T THEN 1850 ELSE 1840 

1850 CALL DELSPRITEtALLI:: D 
ISPLAY ATI23, 1) :RPTE("@",56) 
:: FOR D=1 TO 300 s: NEX 

T.D :: SUBEND 

1550 SUB PLIRSI:: R5=0 

1570 CALL DELSPRITE(ALL):S D 
ISPLAY AT(23,1): "GZEUS@VERWA 

NDELT@DICHGZUR@EBGSTRAFE 

BINGEINENG@PLEITEGEIER" 

1590 .A$="0505091128282800" : 
ı BE="COAOIOBB141414" 73 CAL 

L CHAR(135,"01010111397D 

EFAB"SASE"BOSOAOOBFCBEF7DS"& 

Bs) 

1690 CALL CHAR(140, "Ol141EIFI 

BIBD2BOB"LASK"BOAZATOFIDADDA 

DO"&BS)I:: CALL SPRITE (#1 

2,156,2,40,120):: FOR I=1 TO 
10 s: CALL PATTERN (#12, 140) 
1700 CALL SOUND(-5,-1,0):: F 

OR D=1 "TO 50 ss NEXT D :: CA 

LL PATTERN(#12,136):: FO 

R D=1 TO 50.2: NEXT D :: NEX 

T I :: CALL E ı: SUBEND 


Computer an Schulen - 
Verschlafen wir den Anschluß? 


Wenn Sie auch CPU-Leser sind, so werden Sie sich wohl an unseren Schulbericht vom September erinnern, in 
dem wir zwei hessische Gymnasien, die Herderschule in Gießen und das Oberstufengymnasium in Kassel/ 
Oberzwehren, mit ihren Computererfahrungen vorgestellt hatten. 
Die Ergebnisse von damals erhärteten sich nun in einer groß angelegten Fragebogen-Aktion, die HC ge- 
meinsam mit der Zeitschrift CHIP und den bekannten Büromaschinen-Hersteller Triumph-Adler durch- 
führte. Sage und schreibe 20.000 Schulen wurden angeschrieben. 


3.357 Schulen haben den di- 
ferenzierten Fragebogen be- 
antwortet und nahmen da- 
durch automatisch an der 
Verlosung von 200 alphatro- 
nic-Mikrocomputern der 
Triumph-Adler AG teil. Die 
Ergebnisse der Aktion wurden 
jetzt der Bundesministerin 
für Bildung und Wissen- 
schaft, Fr. Dorothee Wilms, 
in Bonn übergeben. 
Es sieht im internationalen 
. Vergleich nicht‘gut für den 
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deutschen Nachwuchs am 
Computer aus. "Wir haben”, 
so Richard Kerler, Re- 
daktionsditektor im Vogel- 
Verlag, Würzburg, "fast ein 
Jahrzehnt verschlafen", Wört- 
lich sagte Kerler:"Wir haben 
in unserem Lande die ver- 
lorene Generation der 30 bis 
jährigen. Und auch die 
junge Generation wird nicht 
systematisch an- den Com- 
puter herangeführt Das be- 
weisen auch die Ergebnisse. 


Nur 60,5 Prozent der Schulen, 
die an der Umfrage teilge- 
nommen haben, benutzen 
bereits einen Computer. 
Ganz vorne stehen die Gym- 
nasien mit 9 Prozent. Das 
Schlußlicht bilden die Haupt- 
schulen mit 25 Prozent. Also 
wieder das übliche Bildungs- 
gefälle. BeiderAufteilungnach 
Bundesländern steht Berlin 
mit 89,1 Prozent vor Rhein- 
land-Pfalz mit 68,6 Prozent 
und Bayern mit 65.4 Prozent 


vorne, Schlußlicht ist Nie- 
dersachsen mit 52,5 Prozent. 
Beängstigend sieht ces bei 
den Lehrkräften aus. Nur 25,6 
Prozent der Schulen, die mit 
Mikrocomputern arbeiten, 
verfügen über sechs oder 
mehr Lehrkräfte, die mit den 
Geräten vertraut sind. Aber: 
In fast 50 Prozent der Schu- 
len stehen nur ein bis drei 
Lehrkräfte zur Verfügung. 
Und das bei oft 2.000 Schü- 
lern und mehr. 





NOVEMBER 1984 


Die  Aktionsgemeinschaft 
"Mikrocomputer an Schu- 
len", einegemeinsame Grün- 
dung der Zeitschriften CHIP 
und HC mit dem deutschen 
Computerhersteller TA 
Triumph-Adler, hatim April 
1984 eine Fragebogenaktion 
an mehrals 20.000 deutschen 
Schulen gestartet, deren Er- 
gebnisse jetzt vom Ham- 
burger IfaD (Institut für ange- 
wandte Datenanalyse) ausge- 
wertet worden sind. 


Ziel der Umfrage ist es, fun- 
dierte Daten über den der- 
zeiligen Stand des Einsatzes 
von Mikrocomputernanden 
Lehranstalten in allen Bun- 
desländern und West-Berlin 
zu erhalten, um nicht auf 
Schätzungen und pauschale 
Aussagen bei den geplanten 
weiteren Aktivitäten zur För- 
derung des Mikrocomputers 
an Schulen angewiesen zu 
sein. 


Die Resonänz war über Er- 
warten stark: 3.357 der an- 
geschriebenen Schulen ha- 
ben die ausführlichen Frage- 
bogen beantwortet und 
übereinstimmend hohes In- 
teresse bekundet. 


Heute anfangen, morgen da- 
bei sein 


Die  Aktionsgemeinschaft 
vertritt die Auffassung, daß 
Schülerschon frühzeitigund 
mehralsbishermitderCom- 
putertechnik vertraut ge- 
macht werden sollen, um 
später im Beruf bessere 
Chancen zu haben. 


"Heute anfangen, morgen 
‘ dabei sein” hieß die Über- 
schrift zur Schulumfrage. Sie 
befindet sich auch im Ein- 
klang mit einer Erklärung des 
Bundesforschungsministers 
Dr, Heinz Riesenhuber. der 
Wohlstand, Vollbeschäfti- 
gung und Wettbewerbsfähig- 
keit nur dann gesichert sicht, 
wenn die jungen Menschen 
für den Umgang mit den mo- 
dernen Informationstech- 
niken frühzeitig geschult 
werden. 
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60,5% mit Computern aus- 
gestattet 


Von den 3.357 Schulen, die 
den Fragebogen beantwortet 
haben, sind schon 60,5% mit 
Computern ausgestattet. Die- 
se Zahl ist freilich noch nicht 
repräsentativ für alle deut- 
schen Schulen, da unterstellt 
werden muß, daß aktive und 
fortschrittliche Schulen über- 
durchschnittlich vertreten 
sind. 


Aus dem Rahmen fällt West- 
Berlin. wo 89,1% der an- 
wortenden Schulen mit 
Computern arbeiten und un- 
terrichten. Im Vergleich dazu: 
Bremen mit 63%. Unter den 
großen Bundesländern lau- 
tet die Rangfolge: Rhein- 
land-Pfalz 68,6%, Bayern 
65,4% Hamburg 65,1%. 
Baden-Württemberg 59,5%, 
Hessen 
59,0%. Nordrhein-Westfalen 
57,7%,  Schleswig-Holstein 
566% und Niedersachen 
52.2%. 

Besonders ermutigend ist 
das Interesse der noch nicht 
mit Elektronik arbeitenden 
Schulen: 85,5% planen den 
kurz- oder mittelfristigen Ein- 
satz des Mikrocomputers, 
63.8% haben für das Projekt 
schon die Räume vorgese- 
hen. 


Gymnasien vor Berufsschulen: 


Innerhalb der verschiedenen 
Schultypen gibt es er 
wartungsgemäß beträcht- 
liche Unterschiede. Wäh- 
rend fast 90% aller Gym- 
nasien in der Verwaltung 
oder im Unterricht mit Mi- 
krocomputern arbeiten, liegt 
die Zahl der berufsbildenden 
Schulen und Institute in- 
klusive der Volkshochschu- 
len bei 75%, Realschulen 
melden 48,6%. Hauptschulen 
24,3%. 


Insgesamt mangelt es frei- 
lich noch an der Zahl der 
Geräte, die durchschnittlich 
mit 5.2 Computern pro 
Schule angegeben werden. 
Hier sind die Berufsschulen 
mit ihrem mehr praxisbezo- 


59,1%. Saarland. 


genen Unterricht mit 7,4% 
am weitesten. 


Wie soll der Unterricht 


aussehen? 


Die eigentlichen Probleme 
sind natürlich nicht in der 
Hardware, den Geräten und 
ihrer Peripherie zu suchen. 
Die Fragen nach der Unter- 
richtskonzeption und gutem 
Lehrmaterial  (Schul-Soft- 
ware) sowie die ÄAüs- und 
Fortbildung der Lehrkräfte 
stehen im Mittelpunkt. 
Diskutiert wird die Grund- 
frage, ob der Computer- 
Unterricht ein eigenständi- 
ges Fach oder eingebettet 
sein soN in die klassischen 
Schulfächer. 


Bildungsministerin Dr. Doro- 


thee Wilms will "nicht lauter 


kleine Informatiker” heran- 
bilden, Sie plädiert für die 
Verbindung des Computers 
mitden verschiedenen Grund- 
fächern der allgemeinen und 
beruflichen Bildung 


Nach dem Umfrageergebnis 
wird in 25% aller mit Com- 
putern ausgestatteten Schu- 
len Informatik als Pflichtfach 
mit | bis 2 Wochenstunden 
geführt. Fast die Hälfte der 
Schulen (48,6%) bieten Infor- 
matik als Wahlfach oder frei- 
willige Kurse an. Informatik- 
Hobbygruppen gibt es an 
21% dieser Schulen. 


Im Fächerkanon wird der 
Computer vor allem in den 
naturwissenschaftlichen Be- 


"reichen eingesetzt (53,5% in 


Mathematik, 36,7% in Physik). 
Weit dahinter liegt die An- 
wendung in allen anderen 
Fächern wie Technik, Be- 
triebswirtschaftslehre, Che- 
mie, Biologie, Deutsche 
Grammatik, Fremdsprachen 
oder Gesellschaftswissen- 
schaften, 


Lehrer als Autodidakten: 


Aus der Umfrage geht her- 
vor, daß durchschnittlich 
nur fünf Lehrer der aus- 
gerüsteten Schulen mit dem 


Mikrocomputer vertraut sind. 
Die meisten davon sind 
Autodidakten und haben 
sich ihr Wissen durch*die 
Lektüre von Fachbüchern 
und Fachzeitschriften (30,6%), 
Fortbildungskurse (20,7%) 
und durch Kontakte mit Ex- 
perten (18,3%) angeeignet. 


Immerhin verfügen 10% die- 
ser Schulen über eine Lehr- 
kraft mit Informatik-Stu- 
dium. Ein Anfang angesichts 
der Tatsache, daß die Richtli- 
nien für die Lehrerausbil- 
dung in Deutschland über- 
wiegend noch keine Infor- 
matik vorsehen. Für Schüler 
gibt es so gut wie keine Ab- 
schlußprüfungen, Zeugnisse 
oder Diplome. Der Anschluß 
an die international führen- 
den Länder USA, Japan oder 
auch England muß gesucht 
und erreicht werden. 


Schul-Software im Mittel- 


punkt 


Im Jahr 1984 waren die 
Höhepunkte der Arbeit der 
Aktionsgemeinschaft "Mi- 
krocomputer. an Schulen” 
die Grundlagenschaffung 
mit der Fragebogenaktion, 
ein Programmierwettbeweb 
für die Computer-Arbeits- 
gruppen der Schulen. die 
Verlosung und Übergabe 
von Geräten an die Schulver- 
treter sowie die Verbreitung 
von Büchern und Videokas- 
setten zum Thema "Einstieg 
in die Welt der Mikrocom- 
puter. 


1985 will die Aktionsge- 


- meinschaft ihre Aktivitäten 


verstärkt fortsetzten. Im Mit- 
telpunkt stehen die Erstel- 
lung qualifizierten Lehr- 
materials für interessierte 
Schulen und ein zweiter Pro- 
grammierwettbewerb, spe- 
ziell für Schul-Software. 


Auf dem Programm stehen 
darüber hinaus vermehrte 
Öffentlichkeitsarbeit und 
Untersuchungen über den 
Einfluß des Umgangs mit 
Mikrocomputern auf Lehrer 
und Schüler. 

(sk) 
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] Die Suche des FBlI I > 


für den VC-20 + 27Kb 


Das FBI hat am Mittwoch eine Leiche 
in einem Haus gefunden. Es wird ver- 
mutet, daß das Opfer ein Agent war. der 
kürzlich einen Atomplan gestohlen 
hat. 

Ihre Aufgabe ist es nun, diesen Atom- 
plan wiederzubeschaffen. 

Man vermutet, daß sich der Plan noch 
in dem Haus, in dem der Tote lag, befin- 
det. Suchen Sie also zuerst einmal das 
Haus ab. Seien Sie dabei aber auf der 
Hut, denn es gibt Selbstschußanlagen, 
Schlangen und einen Roboter, der von 
einem Agenten der Gegenseite fernge- 
steuert wird. Weiterhin ist bekannt, daß 
sich irgendwo im Haus eine Atom- 
bombe befindet, die nur entschärft wer- 
den kann, wenn Sie den Plan innerhalb 
von 6 Minuten finden. 

Beeilen Sie sich also, denn das Leben 
von Millionen Menschen hängt allein 
an Ihrer Findigkeit und Ihrem 
Geschick. 

Sie bewegen sich durch das Haus. in- 
dem Sie dem Computer Zwei-Wort- 
Befehle eingeben. Den Geist steuert der 
2. Mitspieler mitden Tasten A,W,Dund 
X. Sie selbst können Ihr Männchen mit 
dem Joystick steuern, Bei Betätigen der 
Feuertaste erhalten Sie einen Lageplan 
des Hauses. Voraussetzung ist jedoch, 
daß Sie den Plan erst einmal 
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gefunden haben. 
Wir wünschen Ihnen viel Spaß und 
Spannung bei der Rettung der 
Menschheit. 


Ein wichtiger Hinweis: 

Bevor Sie das Spiel eintippen oder la- 
den, geben Sie bitte 

POKE 44,28:POKE7168,0:NEW ein. 


Variablenliste: 

L: Lautstärke 
S1,52,53: Stimmen 
DM: Geld 

G: Gesundheit 

PI: Pistole 

SE: Seil 

DI: Dietrich 

PA: Patrone 

LA: Lampe 

BA: Batterien 

HA: Hausplan 

PL: Plan 

SCH: Schritte 

TIS: Zeit 

T: Tod 

GE: Geheimraum 
P: Punkt wo Männchen ist 
F: Farbpunkt 

L1: Licht 

A: Anzahl der Sachen 





Programmaufbau: 
20-25: Variablenliste 

70-208: Einkaufen 

210-309: Zufallsgenerator 

310: Ist die Zeit um? 

312-326: Joystickabfrage 

330-514: Pause, Karte, Vorrat 
600-748: Geräuschkulisse 

600-748: Geräuschkulisse 

760-766: Abfrage ob Männchen tot ist 
800-876: 1. Bild- Tür 

900-917: Ist dem Männchen etwas im 
Weg? 

920-925: Männchen geht 

930-944: Männchen wird zurückge- 
setzt 

950-962: Abfrage für Geist 

970-986: Geist wird zurückgesetzt 
990-992: Geist geht 

994-998; Stößt Geist auf Männchen? 
1000-1076: 2. Bild - Saal 

2000-2065: 3. Bild - Essraum 
3000-3052: 4. Bild - Küche 
4000-4052: 5. Bild - Vorratskammer 
5000-5036: 6. Bild - Treppenhaus 
6000-6052: 7, Bild - Aufenthaltsraum 
7000-7052: 8. Bild - Büro 

8000-8052: 9. Bild - Gebetsraum 
9000-9120: 10. Bild - Speicher 
13000-13044: 11. Bild - Geheimraum 
6000-Ende: Bemerkungen 
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a MM en eb a 


Bas na Aawn © 


REMEBRREEERELLLLELLR 
REM® @ @ sı24 #28 
REMS »# ....: 0 Be sn: #8: 
REMG = .. : 12 © @ ». ... 
REVAQIITRELLARREREER 
NIZKLEHJUNaREHH EEE 
REM» :C> 84 BY ® 
REM+ TORFTEN T, * 
REMserseadseeesenene 


io REMzrrtrTFIrtTrrt?t ? DATAS 
11 POKE788,194:G0SUB1888:POKE36979.,24 


i2 POKE36869,205:POKE657,128:PRINT *IRRRRRMEITTE WARTEN... "tFORI"BTDIB1S:POKESIZ 


0+1,PEEK(32768+1)1NEXT 
FORI=1816TO1423:READD:POKES129+1,D:NEXT 


PRINT"DRUECKEN SIE BITTE 
REM =: SPRITES +z 
DATA2S5,255,255,0,0,0,0,0 
DATA16,56,20,56,80,16,40,108 
DATA28,62,107,119,93,99,62,28 
DATA24, 126,247 ,253,247,62,54,62 
DATAB,B,128,192,224,112,498,48 
DATAB,0,08,1,3,7,6,6 
DATA2SS,255,106,90,90,106,126,66 
DATA248,248,8,89,0,0,8,0 
DATA31,31,0,0,0,0,0,0 
DATA2SS,178,170,170,178,0,0,0 
DATA31,53,58,63,27,10,7,3 
DATA24B ,94 ,172,232,08,176 ,224,192 
DATAB,08,0,0,0,255,64,63 
DATAI28,128,128,128,128,255,2,282 
DATA128,148,148, 168,248, 128, 128,128 
DATAB,O,24,20,10,7,0,8 
DATA224,16,200,232,232,200, 16,224 
DATA3,4,9,11,11,9,9,3 
DATAB,22,32,32,58,38 ,36,,38 
DATADO,O,24,97,.19,27,24,0 
DATAB, 148,99,.9,0,08,8,0 
DATAS2,62,34,106,24,652,62,34 
DATAB,B8,0,3,7,5,6,6 
DATA®,50,82,110,184,178,98,0 
DATAB, 16,86 ,255,255,126,68,24 
DATAB,B,62,62,28,8,8,62 
DATAB,4,4,4,60,36,36,36 
ORTAB,127,112,113,112,127,127,96 
DATAB ‚254,14, 142,14 ,254,254,6 
DATA1,I,1,1,1,131,131,255 
DATA1,3,29,13,9,1,1,1 
DATAB,O,08,192,63,63,31,31 
DATAB,DB,O,3,252 ‚252 ‚248,248 
DATAB,®,0,31,63,92,32,192 
DATAB,0,0,248,232,94,4,3 
DATAB,O,O,195,255,195,8,08 
DATAB,I2B,128,199, 173,255, 128,128 
DATAB,1,1,253,255,255,1,1 
DATASS,84,16,16,178,69,48,8 
DATAB,®D,0,48,498,0,9,0 
DATAB,8,85,853,85,85,85,233 
DATA24,60,36,126,66,253,129,255 
DATA2S5,129,253,86,126,36,68,24 
DATAD,127,127,127,124,127,127,127 
DATAB,7,129,255,15,4,8,16 
ONTAD ‚224 ,9,255 ,255,255,87,48 
DATA32,64,128,0,0,0,0,0 
DATA28,108,53,82,0,0,0,8 
DATAB,0,08,0,0,2533,2553,235 
DATA24 ,69,126,99,126,126,126,42 
DATAB,O,8,193,235,193,9,08 
REM sERKLAERUNG® 
L»389878151"36878 


POKE369879,8:PRINT " ME LE SUCHE DES m*:PRINT’ERmmEG SE = 205 


PRINT "IRRBRmI: » “. = 22” 
PRINT’IERREEE #5 nen Rn” 
PRINT IRRE: * zn. x." 
PRINT "ERDE RmEH > ... ee" 


FOR1*-135T0235:POKEL, 15:POKES1, It FORN» I TO3B:!NEXT:NEHNT 
FOR 1"23$ST0O13SSTEP- 1: POKESI , LEFORN"- I TOI8 1 NEXTINENT 

POKES1 ,255:FOR1=15TOBSTEP-1:POKEL, 1!FORN=ITOZBBL NEXTINEXTIPOKESI1,O 
PRINT"IOLLEN SIE DIE SPIEL- ANLEITUNG LESEN ? 


SETAS: IFAS<)"J"ANDAS< > "N"THEN2OBZ 
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@DIE SUCHE DES ® 


.. 0 
”».@ 
».@ 


4 


RETURN" PRINT" ELOADCIID" "NEW 
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20984 IFAS="N"THENRETURN 
20818 PRINT’ LBBRBRBEERKLNERUNG: * 
2815 PRINT’DAS F.B.1. HAT AM BMITTW. EINE LEICHE IN BEINEM HAUS GEFUNDEN," 
BORO PRINT"BES WIRD VERMUTET, DASSZMES EIN AGENT WAR, DER BKUERZLICH EINEN ATOM- 
. . 
2825 PRINT*"PLAN GESTOHLEN HAT 1" 
2038 PRINT"IBIE SOLLEN DEN ATOM - WPLAN SUCHEN UND FIN - IDEN -! *:GOSUBS0D8 
2033 PRINT" BBRBRBEERKLAERUNG: * 
2048 PRINT’MBNWUR OB SIE IHN FINDEN NIST EINE ANDERE SACHE!” 
20843 PRINT"DENN IN DEM HAUS SIND 2.B. SELBSTSCHUSSANLA-MSEN, SCHLANGEN UND EIN 
GEIST DENN" 
20650 PRINT"IHR GEGENSPIELER LENKT*:G0OSUBSBBB 
2033 PRINT IRBEBEERKLAERUNG: ":PRINT"IBSIE HABEN ABER NUR 6 MINUTEN ZEIT, DEN 
N . 
BB68 PRINT"DANN FLIEGT DAS HAUS MEAMT INHALT IN DIE M.UFT":GOSUBS088 
20653 PRINT "'\ARBERRRUBEFEHLE:* 
2078 PRINT"MDER COMPUTER VERSTEHTIMTREPPE HOCH <RUNTER>, MUNTERSUCHEN,* 
2875 PRINT"INICHTS, E91 UND N.*® 
20888 PRINT"MMN KANN DIE WOERTER MUUR BENUTZEN, WENN DEREEOMPUTER EIN '7' 
BECHREIBT.* 
2085 G0SUBS988 
20898 PRINT"IRTASTEN FUER DEN GEIST nn” ı 
2833 PRINT" PN 
f» 
2108 PRINT” aX—0o- 08 
2105 PRINT” v 
2115 GOSUBSOEBB8 
2120 PRINT" BRRRRRBEESTEUERUNG" 
2125 PRINT"WIDAS FRI MAENCHEN WIRD * 
2138 PRINT"MIT DEM JOYSTICK GE - * 
2135 PRINT*STEUERT. WENN MAN DEN * 
2140 PRINT"FEUERKNOPF DRUECKT, . 
2145 PRINT*’KANN MAN SICH Z,B, DEN" 
2158 PRINT"HAUSPLAN ANGUCKEN." 
2155 PRINT"(WENN MAN EINEN HAT). * 
2175 GOSUBSB889 
21860 PRINT IEREREIND NUN LUENSCHT IHNENMIHR STORSTENM rt.:"* 
2185 PRINT’IERRRN IELE IESS5PASSE EEINDERE" 
2190 FORZ»1TOSO:PRINT  ERBPRBIEZEPANNUNGE* FOR 1" 1 TOBO!NEXT:PRINT " RR PANNUNGO) 
*:FORI=1TOBBOTNEXTINEHT 
SD08 REM##=DRUECK -### *»#=ROUTINE»#2 
5005 PRINT"M BITTE "EM" DRUECKEN"! 
S818 GETASI IFAR<>"W"THENSDBIO 
3813 POKEL,1S:POKES1,225:FOR1=-1TO288:NEKXTIPOKESI ,B:RETURN 
READY. 


POKE36969 ,,205 

REM #ser#r4H08 HE ++ s FBI. 28€ 

REM ze 2 = 2 2 9 8 . HAUPT- ® 

REM =» PROGRAMM x» urrsuseReaneee 

REM # MINDESTENS # =» D7’K ERW 8 

REM seasereesaE408 * MIT * 

REM = JOYSTICK * LEIEIET III IT 
G6=-189:DM=-139:51=369876:52="51-1:153=52-1]154=5S | #1 1L"54 +11 SCH=D 
REM 
PRINTER! - BOERSE:* 

PRINT IRRE NANANKAI AA" 

PRINT” GEGENSTAND PREIS *r 

PRINT ————eeee2217°0: 

PRINT* PISTOLE 45 DM * 

PRINT" SEIL OM 

PRINT* PATRONE DOM 

PRINT* DIETRICH OoM 

PRINT" HAUSPLAN DM 

PRINT* LAMPE 18 DM 

PRINT* BATTERIE s oM 

PRINT —— — — — — — — — ——— {" ! 
PRINT’IBIIHR GELD : "DM"DM* 

PRINT’EREMS WOLLEN SIE t" 

INPUTG# 

IFGS="PISTOLE"THENGOTO 148 
IFGS=""SE IL "THENGOTO 150 

IFG$= "PATRONE *" THENGOTO 1658 

IFG$= "DIETRICH" THENGOTO17O 

IFGS= *HAUSPLAN"THENGOTO 188 

IFGS= "LAMPE *" THENSOTO1SO 
IFGS=*"BATTER IE" THENGOTOZORO 

IFGS= "NICHTS "ORGE" "N" THENSOTO21O 
PRINT*"DIESES TEIL HABEN WIR NICHT!" 
POKES1,25S:POKEL, 1S:FORI"ITO10808: NEXT: POKESI ,B1FOR1"1TO7BB:NEXTI:PRINT"OD* 
PRINT" ":G60T078 
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140 
i42 
194 
145 
1465 
147 
1493 


266 
262 


266 
268 


272 
274 
276 


262 


285 
283 
230 
292 
236 
238 
308 
302 
318 
sıı 
sıa 


nn 
nn 
© 
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PRINT ERERARP ISTOLE: * 
PRINT*EMIEVIELE WOLLEN SIE 
INPUTA: IFA=OTHENIA? 
1FDM<(ASSATHENIS3 
OM-OM-4S:A1PRINT  RERERREARD .K. *:PI=Pi+isA:GOSUB780:G60T078 
PRINT IERBSBEENF GUT... "1G0SU8B7 1016071078 

PRINT*MEBBIE HABEN NICHT GENUG GELD. *:GOSUBSI8:G0TO7E 
PRINT’ DEE 1 |, * 
PRINT"IMIEVIELE WOLLEN SIE 
INPUTALIFA=OTHENL47 
1FDM{QRATHENI4S 
DrisDM-S:AM: PRINT" RERRAMAREN.K. "1SE=SE+1EMLGOSUB788:G0TO78 
PRINT ERRRRIP ATRONE ı * 
PRINT*"ZMIEVIELE WOLLEN SIE 
INPUTA: IFA=BTHENLA? 
IFOM<L#ATHENIAS 
OM=DM-12N:PRINT" ERBARBRERN .K. *"!PA=PA+LEN:GOSUB7EU:GOTOTE 
PRINTER IETRICH: * 
PRINT*BMIEVIELE WOLLEN SIE 
INPUTA: IFA«OTHENIA? 
1IFOM<SOHATHENI4S 
DM-DM-SB+A:PRINT * EEE . K. *tO1=DI+LEN:GOSUB7BB:G0TO7E 
PRINT EEREHAUSPLAN: ” 
PRINT*ZBIIEVIELE LOLLEN SIE 
INPUTAL IFA=BTHENIS7 
IFOM<SOsATHENI4SB 
DM=DM-50+A: PRINT "EREBBBRBERN .K. *ıHA=HA+LSA:GOSUB78B:GOTO7O 
PRINT EEE .AMPE : * 
PRINT*MBIEVIELE WOLLEN SIE 
INPUTA: IFA=BTHENI47 

IFOM< 18sATHENI4S 

DM=DM- 1OsA: PRINT " URABBRERR .K. *tLA=LA+LSAIGOSUB70C:GOTOTEO 
PRINT AREBEARTTER IE: * 
PRINT"BIIEVIEL WOLLEN SIE 
INPUTA: IFA=BTHENIA? 
1FODM<SsATHENISS 
DM=DM-SsA: PRINT" EARARRRN .K. * 1 EN=BN+ Ian: GOSUB70B:1GOTO?B 
BEM 

REM 

K=INTERNOCIIR ZI #1 

ONXGOTO222 ‚224 ‚226 ‚220,230 ,232,234 ,236,238,248 ,242 ‚244 
PL=1160T0258 

PL»2:16010250 

PL=31G0T0250 

PL=4:60102508 

PL=5:6070258 

PL=7160T02508 

PL=8:60T0258 

PL=9:G0T0256 

PL=18:160T10258 

PL=11:60T0250 

PL=12:60T0258 

PL=13 

REM 

K=INTERNDCIIE2) +1 

ON:GOTO234 ‚255 

T#18:1G0T0260 

T=8 

REM 

K=INT{RND<CI)EB) +1 

ONHG0TO264 ‚266 ,268,270,272 ,274,,276 

GE=1:160T0282 

6E"3:60T0282 

GE=4:60T0282 

GE=8:160T0282 

GE=71G60T0282 

GE"3:160T0282 

GE=3 

REM 

KeINTERNDCHIR2I 41 

ONKGOTO2B8 ‚298 

L1=1160T0232 

Li=®8 

REM 

K=INTERNOCIHIEBI HI 

ONXGOTO3B8 ‚302 

TU=8:60T0888 

TU=1:G010868 

IFTISER) "000600" THENGOTOS3300 

GOTOsSBa , 

JI=PEEK (37137): POKE37 154, 127: JB=PEEK (37152): POKE37154 ,255 


KAUFENI * 


KAUFEN: * 


KAUFEN: 


KAUFEN: * 


KAUFEN: * 


KAUFEN: * 


KAUFEN!" 


1984 


ee nn nn nn nn nn nm nn m nn nenn nn nn nn nn nn 
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16 
318 
328 
s22 
324 
326 
330 
332 
334 
336 
a38 
346 
342 
344 
346 
as5 
368 
361 
a52 
364 
286 
368 
378 
372 
374 
376 
378 
388 
382 
334 
E1:13 
388 
330 
332 
394 
336 
398 
488 
402 
494 
406 
408 
418 
412 
414 
416 
418 
420 
422 
424 
450 
452 
434 
460 
462 
464 
466 
468 
470 
472 
474 
476 
473 
488 
432 
4154 
436 
ET:1:} 
sıo 
sı2 
sid 
00 
gez 
go 
606 
ses 
gı8 
sı@ 
814 
sis 
sı8 


- - | nm 
ee nn nn nn nn nn m nm mm nm 











IF JSAND4 ) =BTHENPOKEP ‚32:P=P-22ıF=F-22:60T10588 
IF<CJSANDB)I "BTHENPOKEP ‚32: P=P+22:1 F#«F+22:G0T0988 
IF<JSANDLIEI=BTHENPOKEP ‚32:P=P-LiFeF-1:G0T0908 
IFCJEAND 128) "BTHENPOKEP ‚321 P=P+liF=F+l:GOTO9B9 
IFCJSANO32)=BTHEN33B 

GoTo31ıo 

PRINTIIEAS MOECHTEN SIE ı* 

PRINT*KARTE UNTEN* 

PRINT*KARTE OBEN* 

PRINT*"VORRAT* 

PRINT*PAUSE* 

INPUTAS: IFÄAB= "KARTE UNTEN" THEN38D 


IFAZe "KARTE OBEN*’THENA 18 
IFA&="VORRAT*THENAGO 

IFAS= "PAUSE *THENSIO® 

G0T0339A 

REP 

IFHASÖOTHENRETURN 

ENT m — 
PRINT*| | 13 
PRINT*| I GEBEETS |* 
PRINT"I BUERO | 1% 
PRINT* | I RAUM 1% 
PRINT* | ! 1% 
PRINT" p—r——nd 21145 
PRINT*| | f "3 
PRINFE— - -| RUF 8; 
PRINT* |VORRAT ITREPPE | ENT- |" 
PRINT* I | I HALTS I") 
PRINT*| | [ RAUM 1") 
PRINT" bp ——t 
PRINT*| | | 13 
PRINT" | ESS- | I 13 
PRINT* | | SAAL IKUECHE I" 
PRINT* | RAUM | | 1" 
PRINT* | I | "3 
PRINT* IL ge 18] 
PRINT* ITUER I* 

PRINT* ne. 

PRINT*M BITTE 'W" DRUECKEN. "5 


GETAS: IFA) "WU" THENAOS 


RETURN 

IFHA=DTHENRETURN 

PRINT u  ———— ———" 
PRINT*| 1"3 

PRINT*| 1"3 

PRINT*| SCHPE ICHER 13 

PRINT*| 1" 

PRINT*| ke} 

PRINT! 


PRINT" BITTE 'U' DRUECKEN..* 
GETAS: IFAST > "UT THENAS2 

RETURN 

REM 

PRINT") GESUNDHEIT 1 *G*%" 
PRINT’ SCHRITTE 1°SCH"’ST.* 
PRINT IRNANAAANSARENKSPDDBISPE EN 
PRINT"M PISTOLEN ı"P1"S5TK,* 
PRINT’B SEILE ı"SE"STK.* 
PRINT"M PATRONEN ı“PA*STK.* 
PRINT" DIETRICHE ı"DI "STK." 
PRINT"M HAUSPLAENE I*HA"STK." 
PRINT’ LAMPEN s’LA’sTK.”" 
PRINT" BATTERIEN :*"BA*STK.* 
PRINT RAS En" 3 
PRINT’ BITTE 'W' DRUECKEN,.. *3 
GETAB: IFAS<>)"W"THENAGE 

RETURN 

REM 

GETASt IFAR< HR" THENSIZ 

RETURN 

REM 

REM 


POKEL,1S:POKES3,20081FOR1=1TO 180: NEXTIPOKES3,B:POKEL,O 


POKER+F ,1 
RETURN 
REM 


FOKEL, 15: FORA=128TO2SISTEPL L:POKES3,A:FORM« ITOIO:NEKT 


B=-B+t1: IFB=-3THENB«B:POKESI,B 
NEXT:POKES3,B:POKEL,B: FORI"1TO4BO: NEXT 
GOSUBE22:G0OSUBEZO RETURN 
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Heimcomputer sind gefräßig, dabei aber 
durchaus auf Leckerbissen abonniert... 


Pi N 
2 en 
EST: nf “ damit auch Sie sagen 
(TEILEISITANTDLE =: - können: 
dl De Mein Heimcomputer — 
HOMEGOMPUTER, ein ganzer Kerl dank. 


„HOMECOMPUTER 


y = 








S ound 


mit dem 


Ich nehme an, daß die meisten Leser un- 
ter den Ataribesitzern den Basic- 
SOUND-Befehl kennen, richtig? Mit 
diesem Befehl lassen sich schon ganz 
nette Toneffekte erzeugen. Um aber die 
tatsächlich vorhandenen Möglichkeiten 
des Atari voll auszuschöpfen, ist es not- 
wendig zu wissen, was einem da von der 
Hardware geboten wird und wie man es 
von der Programmierung her nutzen 
kann. Deshalb möchte ich in dieser klei- 
nen Reihe die Eigenschaften des Atari- 
Computers ein wenig beleuchten und ein 
paar verschiedene Programmiertech- 
niken zur Tonerzeugung vorstellen 
(letzteres kann auch für Besitzer anderer 
Rechner interessant sein!). 


Alserstesmöchte ich fürdie Leserunter 
uns, die sich mit diesem Gebiet noch 
nicht beschäftigt haben, den Basic- 
SOUND-Befehl einmal kurz erläutern. 

Um einen Ton erklingen zu lassen. be- 
nötigt er vier Parameter: 

l. Den Tonkanal (Voice), über den der 
Ton zum Lautsprecher des Fernsehers 
geschickt werden soll, Dazu stehen de- 
rervierzur Auswahl(Kanal0-Kanal3) 
2. EineZahlzwischenO und 255 (Pitch). 
die die Frequenz des Tones bestimmt. 
3. Eine gerade Zahl zwischen 0 und 14 
(Distortion. Rauschen), die darüber 
entscheidet, ob ein sauberer oder ver- 
zerrter Ton erzeugt werden soll. 

4. Die Lautstärke des Tones. ein Wert 
zwischen 0 (aus) und 15 (laut). 

Um das Ganze nicht allzu trocken zu 
beginnen, sei hiergleich auf Programm 
I verwiesen. Dieses kleine Programm 
tut zwar nichts weiter als mit einer ge- 
wissen Zufälliekeit das Betriebssystem 
des Atari herunterzuspielen (daher der 
Name). aber es läßt schon die Mög- 
lichkeiten erahnen. die sich da auftun. 
Außerdem kann es zurakustischen Un- 
termalung des weiteren Studiums 
dieses Artikel dienen... 

Hört sich schauderhaft an, gelle? Doch 
Spaß bei Seite - jetzt wollen wir uns 
dem eigentlichen Sinn des Ganzen hin- 
geben, und dazu sind ein paar Grund- 
lagen und Begriffe notwendig: 


Ein Ton besteht aus einer Folge von 

Schwingungen (Schallwellen). wobei 

die Anzahl der Schwingungen pro 
f 
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Tones 


Zeiteinheit die Höhe des 


bestimmt. 


Dies wird in der Physik sowie Technik 


als Frequenz bezeichnet und mit der 
Einheit Hertz (Hz) versehen; | Hertz 
entspricht einer Schwingung pro 
Sekunde, 

Bekanntlich müssen diese Schwingun- 
gen irgendwie zu unserem Ohr trans- 
portiert werden, damit wir sie als Töne 
wahrnehmen können. Diese Aufgabe 
übernimmt die Luft, die durch ünsere 
Stimmbänder in Schwingungen ver- 
setzt wird und dann wiederrum im Ohr 
das Trommelfell zum Schwingen 
bringt. 

Wie aber soll ein Computer Luft zum 
Schwingen bringen - er besitzt ja keine 
Stimmbänder. Zum Glück gibt es aber 
künstliche, nämlich Lautsprecher. die 
der Rechner über »entsprechende 
Bauteile ansteuern kann. Diese Fähig- 
keit istvon Computer zu Computer un- 
terschiedlich ausgebaut: jenach Aufga- 
bengebiet. Ein Rechner, der nur für ge- 
schäftliche Anwendungen wie Buchhal- 
tung benutzt wird, dürfte mit einem ge- 
legentlichen Piepsen zur akustischen 
Untermalung von Fehlern auskom- 
men, während gerade für Spiele, wie sie 
z.B. für Atari und Commodore- 
Rechner erhältlich sind. eine reich- 
haltige Geräuschkulisse oft notwendig 
ist. Um dieser Notwendigkeit gerecht zu 
werden. befinden sich in diesen Ge- 
räten Bauteile, die speziell zur Ton-/ 
Geräuscherzeugung konstruiert wur- 
den oder diese neben anderen Funktio- 
nen beinhalten. Bei Atari-Rechnern ist 
dies der POKEY-Chip. beim Commo- 
dore 64 der SID-Chip (Sound Inter- 
face Device). 





Was muß aber in einem solchen Chip 
passieren. damit ausdem Lautsprecher 
etwas zu hören ist? Um eine Luftschwin- 
gung zu erzeugen. muß dieser einen 
elektrischen Impuls erhalten. Durch 
das Verändern der Spannung. die an 
dem Lautsprecher anliegt, wird die 
Position der Membrane in diesem ver- 
ändert und dadurch eine Schwingung 
erzeugt. Diesen Effekt können wir uns 
gleich einmal mit Hilfe folgender 
Basic-Zeile anhören: 


POKE 53761,31:POKES53761,0 


Wenn man nun mehrere dieser Im- 
pulse hintereinander zum Laut- 
sprecher sendet. so erhält man einen 
durchgehenden Ton. dessen Höhe 
durch die Anzahl der Impulse in einer 
gewissen Zeit bestimmt wird. Dies kön- 
nen wir ebenfalls mit cinem kleinen 
Basicprogramm bewirken: 


10 POKE 53761,31:POKE 53761,0: 
20 GOTO 10 


Da Basic nicht sehr schnell ist und dem- 
entsprechend der Ton eine sehr 
niedrige Frequenz hat. können wir die 
einzelnen Schwingungen der Schall- 
welle noch hören. Deshalb übernimmt 
der POKEY-Chip des Atari die Er- 
zeugung von Schallwellen mit wesent- 
lich höheren Frequenzen. womit wir 
schon beim nächsten Kapitel wären: 
dem Takt, : 

Erspielt beider Tonerzeugungmitdem 
Atarı eine große Rolle. Bei der Erläute- 
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rung des SOUND-Befehls sagte ich. 
daß der 2. Parameter die Frequenz be- 
stimmt, mitder ein Ton erzeugt werden 
soll. Das stimmt eigentlich nicht ganz, 
denn bei Werten von 0 bis 255. also 0- 
255 Hertz. wäre nichts bzw. nurein mü- 
des Brummen zu hören. Deshalb liegt 
‚Intern an jedem Eingang eines Tonka- 
nals des POKEY-Chip ein Takt mit ei- 
ner Frequenz von mehreren Kilo-Hertz 
an. die durch den Wert des 2. Para- 
meters (Pitch) mittels eines Frequenz- 
teilers geteilt wird. 

Dieses Teilen bedeuter. daß für cine be- 
stimmte Anzahl von Impulsen desEin- 
gabetaktes durch den Frequenzteiler 
nur ein Impuls an den Lautsprecher 
weitergegeben wird. 

Zur Verdeutlichung ein Beispiel: 
Nehmen wir an. daß der Eingangstakt 
1000 Hertz beträgt und dieser durch 10 
geteilt werden soll. womit also nur jeder 
10..Impuls an den Lautsprecher gesen- 
det wird. Dadurch erhalten wirim End- 
effekt einen Ton von 100 Hz. Läßt 
man durch 5 tteilen, so ergibt das einen 
Ton von 200 Hz usw. Das Verstehen 
dieser Beziehung ist sehr wichtig. da 
dem POKEY-Chip zur Tonerzeugung 
mehrere Frequenzen des Eingangs- 
taktes zur Verfügung stehen. 


Jetzt wissen wir also, wie der Atari dem 
Lautsprecher im Prinzip die Töne bei- 
bringt - äber wie sieht es mit den 
“special effects” wie Explosionen und 
Motorengeräuschen aus? 

Auch daran wurde bei der Kon- 
struktion des Atari gedacht. Aus den 
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zum Lautsprecher gesendeten Wellen 
lassen sich ausgesuchte Impulse entfer- 
nen. wodurch eine Verzerrung. ein 
Rauschen des Tones erzielt wird. Da- 
durch lassen sich fast unendlich viele 
Toneffekte erzeugen; je nachdem auf 
welche Art und Weise Impulse un- 
terdrückt werden. 

Dem POKEY-Chip stehen zu diesem 
Zweck sogenannte Polyzähler zur Ver- 
fügung, mit deren Hilfe eine Verzer- 
rung von reinen Tönen möglich ist. 
Diese Zähler liefern "Zufallsschwin- 
gungen”. die mit der zum Lautsprecher 
gesendeten verglichen werden. Zu hö- 
ren sind dann nur Schwingungen. die 
mit denen der Polyzähler übereinstim- 
men. Allerdings wiederholen sich diese 
Zähler nach einer kurzen Zeit. Um 
trotzdem unterschiedliche Zufallsstufen 
zu ermöglichen. gibt es Polyzähler un- 
terschiedlicher Größe im Atari. Wird ein 
Ton mit Hilfe eines kleinen Polyzählers 
verzerrt. so erhält dieser einen 
anderen Klang 

Ein großer Polyzähler dagegen be- 
nötigt viel Zeit bevor er sich wiederholt. 
Dadurch kommt es bei der Benutzung 
eines solchen nur zu einem gelegent- 
lichen Knistern und Knastern. (Wer 
mehr über diese Technik erfahren 
möchte. der sei auf das DE RE 
ATARI verwiesen.) 


So. nachdem die Grundlagen geschaf- 
fen sind. wollen wir uns nun der Hard- 
ware des Atari zuwenden. 

Wie am Anfang schon erwähnt. besitzt 
der Atari vier Tonkanäle.-wobei jeder 
unabhängig von dem anderen kontrol- 
lierbar ist. Zu jedem Kanal gehört ein 
Frequenzregister, dessen Inhalt die 


Atari 


Tonhöhe bestimmt undein Kontrollre- 
gister, über das die Lautstärke und der 
Klang gesteuert werden. Wie zu ver- 
muten, macht der Basic-SOUND- 
Befehl nichts weiter, als seine 4 Para- 
meter in ein solches Registerpaar im 
POKEY-Chip abzulegen. Man kann 
die Tonerzeugung aber auch mittels 
POKE-Befehlen in Basic bzw. in Ma- 
schinensprache bewerkstelligen. wo- 
durch eine wesentlich flexiblere Tonge- 
nerierung möglich ist, Doch dazu müs- 
sen wir wissen. wo sich diese Register 
befinden: 


l, Die Frequenzregister, die den Wert. 
der zur Teilung der Taktfrequenz ver- 
wendet sind, enthalten. Ihre Adressen 
sind: 


SD200 (53760) für Kanal 0 
$D202 (53762) für Kanal I 
SD204 (53764) für Kanal 2 
und SD206 (53766) für Kanal 3 


Ihre Funktion dürfte aus 
Diskussion bekannt sein. 


obiger 


2. Die Kontrollregister zur Klang- und 
Lautstärkeregelung Ihre Adressen 
sind: 


SD201 (53761) für Kanal 0 

SD203 (53763) für Kanal I 

$D205 (53765) für Kanal 2 

$D207 (53767) für Kanal 3 

Da diese Register zwei Funktionen 

steuern, müssen wir sie etwas näher be- 
trachten. Die einzelnen Bits sind dabei 
den Funktionen wie folgt zugeordnet: 


Bit 0: 

Bit 1: Lautstärke 

Bit 2: (Volumen) 
und Bit 3: \ 

Bit 4: Schalter Frequenz und Laut- 

stärke oder nur Lautstärke 

Bit 5: 

Bit 6: Auswahl der Verzerrung 
und Bit 7: 


Die Bits 0 bis3 der Kontrollregister stel- 
len eine 4-Bit-Zahl dar. die die Laut- 
stärke angibt. Mit vierBitkann man die 
Zahlen O bis 15 darstellen. wobei 0 aus 
und 15 so laut wie möglich bedeutet. Es 


Homscompurer 27 


ee Se 


stehen in allem also 16 Lautstärkestu- 
fen zur Verfügung. 

Das Bit 4erlaubteine Umschaltung des 
betreffenden Kanals zwischen zwei Be- 
triebsarten: eine, in der die durch den 
Frequenzteilerherabgesetzte Frequenz 
in der gewählten Lautstärke gesendet 
Sind. und eine andere. in der nur die Bits 
0-3 als Lautstärke zum Lautsprecher 
gesendet werden; eine Frequenz wird 
nicht mehr übertragen! 

Nun wird sich mancher Leser fragen. 
wozu eine solche Betriebsart gut ist. 
Wieich schon zu Beginn sagte, wird die 
Membrane des Lautsprechers durch ei- 
nen Impuls bewegt und dadurch ein 
Ton erzeugt. Mit den 4 Lautstärke-Bits 
und ihren 16 möglichen Werten kann 
man. nun die Stärke eines Impulses 
steuern. Man hat also eine absolute 
Kontrolle über die Membrane des Laut- 
sprechers und kann so mit gewissen 
Einschränkungen durch schnelles An- 
dern der Lautstärke alle möglichen 
Schwingungsformen erzeugen - den 
Rechner sogar Sprechen und Singen 
lassen. Allerdings ist diese Art der Ton- 
erzeugung sehr kompliziert und wir 
wollen uns erst einmal wieder der rest- 
lichen Hardware des Atari zuwenden. 
Die Bits 5,6 und 7 dienen zur Steuerung 
der Verzerrung und erlauben die Aus- 
wahl verschiedener Polyzähler (s.o.) 
und deren Kombination. Es stehen drei 
solcher Zähler unterschiedlicher Größe 
zur Verfügung, die beiden kürzeren Po- 
Iyzähler sind 4 bzw. 5 Bit lang und wie- 
derholen ihre Schwingungen ofi genug. 
um rasch ansteigende und abfallende 
Geräusche zu erzeugen. Der 17 Bit 
große dritte Polyzähler kann dagegen 
zum oben schon erwähnten Knistern 
und Krachen benutzt werden. Außer- 
dem kann dieser Polyzähler noch in ei- 
nen 9-Bit-Polyzähler umgewandelt 
werden, wodurch noch eine Zwischen- 
größe zwischen den kleinen und 
großen Zählern zur Verfügung steht. 
Hier nun eine Tabelle der verschiede- 
nen Bit-Stellungen und ihre Bedeutung: 


Es bedeutet: 

T= Takt (Frequenz) am Eingang 
eines Tonkanals 

F= Inhalt des Frequenzregisters eines 
Tonkanals 

/= durch Frequenzteiler ausgeführte 
Division 


Bit 7,6,5: Bedeutung: 
000 T/F, 5-Bit-Poly, danach 17- 
Bit-Poly, und das ganze /2 
00 T/F, 5-Bit-Poly, das ganze /2 
01 


4-Bit-Poly, /2 
T/F, 17-Bit-Poly, /2 


I) 

0 -T/F, 5-Bit-Polv, danach 

0 

1 T/F, keine Polyzähler (reine 
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Töne), /2 
110  T/F,4-Bit-Polv, /2 
Programm 2 demonstriert. die Wirkung 
der verschiedenen Polyzähler bei einer 
festen Frequenz. 


3. Und letztens gibt es außer den un- 
abhängigen Kontrollregistern der ein- 
zelnen Kanäle auch noch ein Register. 
das die Funktionen aller Tonkanäle 
gleichermaßen beeinflußt. Die Adresse 
dieses Registers ist $D208 (53768). Die 
einzelnen Bits des Registers erlauben 
noch zusätzlich zu den unabhängigen 
Kontrollregistern das Umschalten zwi- 
schen folgenden Optionen: 

Bit 0: Dieses Bit erlaubt das Um- 
schalten des Eingangstaktes an den Ka- 
nälen zwischen 64 kHz (Bit nicht ge- 
setzt) und 15 KHz (Bit gesetzt): 


SOUND 0,100,10,8 
POKE 53768,1 


Wie man nach dem Poke hört, ist der 
Ton wesentlich tiefer, 

Bit I und 2; 

Durch Setzen dieser Bits kann man 
Hochpass-Filter in Kanal 0 und I ein- 
fügen (Bit I für Kanal l. Bit2 für Kanal 
0). Ein solcher Filter gestattet, nur 
hohen Frequenzen den Durchgang 
zum Lautsprecher. In diesem Fallsind 
hohe Frequenzen die, diehöherals der 
Takı des Tonkanals sind. Da aber für 
diesen Takt bis jetzt nur zwei Frequen- 
zen zur Auswahl standen. bestimmt 
nun der Inhalt des Frequenzregisters 
des Kanals 2 für Kanal 0 die Takt- 
frequenz, bzw. Kanal 3 den Takt von 
Kanal I. Zum Ausprobieren: Pro- 
gramm 3. 

Bit 3 und 4: 

Diese Bits erlauben das Zusammenset- 
zen zweier Kanäle zu einem einzigen. 
Dadurch steht nun ein Frequenz- 
bereich von 0 - 65535 (16-Bit- 
Auflösung) zur Verfügung, statt des ge- 
ringeren Umfangs von O bis 255 (8-Bit- 
Auflösung). Wie wirkt sich das auf'den 
ausgegebenen Ton aus? Zum einen ist 
es möglich. die Ausgabefrequenz auf 
einzelne Impulse zu reduzieren. die je- 
weils durch einige Sekunden getrennt 
sein können. Dies geschieht beim |. 
Lauf von Programm 4. Andererseits ist 
es möglich. eine feinere Kontrolle der 
Frequenz zu erlangen. Diese wird er- 


-reicht. indem man zusätzlich noch ei- 


nen wesentlich höheren Takt als den 
von 64 KHz benutzt. nämlich 1.79 MHz 
(siehe Bit 5,6). Wieman deutlich beim 2. 
Durchlauf von Programm 4 hört, sind 
die Unterschiededereinzelnen Frequen- 
zen wesentlich geringer als bei der 8- 
Bit-Auflösung und „der Frequenz- 
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bereich entsprechend größer. 

Wie wird dieser Modus betrieben? 
Wenn Bit 3 gesetzt wird. dann werden 
die Tonkanäle 2 und 3 zusammenge- 
fügt. Bit4 erledigt dasselbe mit KanalO 
und I. Wie man sieht. kann man ohne 
weiteres zwei Kanäle weiterhin normal 
(8 Bit) betreiben und zwei zu einem 16- 
Bit-Kanal zusammenfassen. 

Durch dieses Zusammenschalten än- 
dert sich auch die Bedeutung der 
Frequenz- und Kontrollregister der be- 
troffenen Känäle etwas. Betrachten wir 
uns das anhand der Kanäle 0 und 1: 
Das Frequenzregister von KanalO wird 
nun zur Feineinstellung (niederwerti- 
ges Byte) des Tones benutzt; das Regi- 
stervon Kanal I entsprechend Zur Grob- 
einstellung (höherwertiges Byte). Da 
wir jetzt nur noch einen Kanal vorlie- 
gen haben. benötigen wir auch nurein 
Kontrollregister für die Lautstärke und 
Verzerrung. Dies übernimmt das Regi- 
ster von Kanal ] auf die uns schon be- 
kannte Art und Weise. Entsprechendes 
gilt für die Kanäle 2 und 3. wenn diese 
zusammengeschaltet werden. 

Bit 5 und Bit 6 erlauben die vorhin 
schon erwähnte 1.79 MHz-Option des 
Eingangstaktes. Allerdings ist diese we- 
gen der Zusammenfassung jeweils 
zweier Kanäle in der 16-Bit-Auflösung 
auf'Kanal 0 (Bit 6) und Kanal (Bit 5) 
beschränkt. Zur Demonstration Kanal 
0 in 8-Bit-Auflösung: 


SOUND 0,255.10,8 
POKE 53768,64 


Nach dem SOUND-Befehl ist ein re- 
lativ tiefer Ton zu hören. der nach Ein- 
gabe des 2.-Befehls zu einem hohen 
“Pfeifen” wird, - 

Bit 7: schließlich noch der Schalter zum 
Umwandeln des 17-Bit-Polyzählers in 
einen mit der Länge von 9 Bit. Auch 
dazu ein Beispiel: 


POKE 53760,150:POKE53761,136 


Jetztwird über Kanal ein Ton mit F= 
150 und.der Lautstärke 8 gesendet. wo- 
bei zur Verzerrung der 17-Bit-Polyzähler 
verwendet wird. Nach Eingabe des fol- 
genden Befehls wird dieser dann in ei- 
nen 9-Bit-Polyzähler umgewandelt: 


POKE 53768,128 


Hier noch einmal dieses Kontrollregi- 
ster in einer Übersicht: 


Bit 0 = 0: 64kHz Eingangstakt 
= 0: 15kHz Eingangstakt 

Bit 1= 1: Hochpaß-Filter in Kanal |. 
getaktet von Kanal 3 

Bit2= 1: Hochpaß-Filter in Kanal 0, 
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getaktet von Kanal 2 

Bit3= 1: Kanal? und verbinden (16- 
Bit-Auflösung) 

Bit 4 = 1: wie Bit 3. jedoch für Kanal 0 
und | 

Bit5=1: Kanal 2 mit 1.79 MHz 
takten 

Bit 6 = 1: Kanal 0 mit 1.79 MHz 
takten 

Bit 7 = 1: 17-Bit- in 9-Bit-Polyzähler 
umschalten 


Wie zu erkennen ist. läßt sich durch 
eine geschickte Auswahl der Kanäle 
und setzen Ihrer Optionen ein wahres 
Frequenzwirrwarr zum Lautsprecher 
des Fernsehers schicken. womit schon 
sehr interessante Dauertöne erzielt 
werden können. Wenn man aber das 
Ganze mit Hilfe von Programmen 
auch nöch dynamisch macht... 


Damit sind nun alle Hardwareeigen- 
schaften des Atari. soweit sie die Toner- 
zeugung betreffen. bekannt. Jetzt kann 
ihm auch in Maschinensprache oder 
mit POKEs Sound entlockt werden. 
wodurch. wie schon angedeutet. sich 
neue Möglichkeiten auftun. 

Eine dieser Möglichkeiten wäre, den 
Atari mittels eines kleinen Maschinen- 
programms in Echtzeit ein Musikstück 
spielen zu lassen. während BASIC sich 
anderen Problemen zuwenden kann - 
ohne sich um die Töne kümmern zu 
müssen, 

Genau selbiges habe ich im 2. Teil die- 
ser kleinen Reihe in der nächsten Ho- 
mecomputer vor (und da gibt es auch 
ein bißchen mehr zum Eintippen für 
die Leser. die mehr Freude an fertigen 
Programmen haben). 


mit dem Atari experimentieren wollen: 
bevor der POKEY-Chip Töncerzeugen 
kann. muß dieser initialisiert werden. 
In Basic erledigt dies der SOUND- 
Befehl. Wenn man also mittels POKEs 
Tonmanipulation betreiben will. so ist 
eine SOUND 0.0.0.0-Anweisung ange- 
bracht. In Maschinensprache mußeine 
O nach Adresse SD208 (53768) und eine 
3 nach Adresse SD20F (53775) ge- 
speichert werden. 

(mc) 


REM PROGRAMM 4 

REM 16-BIT-DEMO 

REM 

REM POKEY initializieren 

18 POKE 5I7S55,2:POKE 5I1768,8 

zu 7 " 8-Bit-auflioesungifreg. von 8 bi 
s 285" 

30 POKE S53761,165:REM reiner Ton, Laut 
staerke 8 

48 FOR FREO=B TO 255:P0OKE SI768,FREO:? 
FRER:ICHRSC28I NEXT FREA 

45 Laur=i 


Kan» 
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Zum Schluß noch ein wichtiger Hin- 
weis für die Leser. die nun ein bißchen 


ı REM PRUGRAMNM i 

4 REM ATARI-8S-Sunfonie 

Ss REM 

18 05=55296 

20 VOICEZINTERND CO) A) 

38 FREN=PEEK (OS) ıX<PEEKLOS+UDICE) 

“#0 DISTZIMTCH/16) : VOLZSK-DISTMIS 

45 7 'Woicer";VDICEI" Frea:!")FREQO," Di 
uti;DIST," Vol:ı"; Vor 

80 SOUND VOICE,FREQ,DIST,VOL 

4 FOR DELZE TO H/ CLVDICE+I1):MEXT DEL 
68 05>0$+HV0OICE 

70 IF 05765535 THEN 05=57744 

oe Goro 20 ' 


1 REM PROGRAMM 2 
2 REM POLYZAEHLER-pEMO 

= REM 

5 DIM a5cse> 

10 FREO=SINTERNDCOEIM2S5I +1 

15 SOUND ®,FREU,8,8:7 ı7? "FREQ:";FREA 
17? RESTORE 1808 

20 FOR Izı T0 & 

25 READ n$ı7 AS 

0 NEAD aıaza+EB 

+0 POKE S57761,0 

se FOR DELAY=1 TO 1S88:NEXT DELAY 

608 MEXT I 
0 coTro ı8 
100 DATA S5-BIT} DANN 17-BIT 160 Data 
110 Dara @ 


1489 DATA 35-BIT: DAMM 4-DIT 
1598 DAaTa 64 

17-B81IT 

178 DATA 1208 


12® DATA S-BIr 106 DATA KEINE PoLY 
420 DAaTa 32 190 DaTa i6® 

200 DATA A-BIT 

210 DAaTa 192 


i REM PROGRAMM 3 

2 REH HOCHPASS-DEHMO 

3 REM 

108 REM POKEY-Chip initialisieren 

20 SOUND 8,0,0,0 

25 REM Kanal i Kontrollregister: reine 
r Ton, Lautstaerke 8 

25 POKE 5I1763,160 

286 ? "Tonfolge ohne Filter" 

29 GOSus ı08 

0 REM Hochpass-Filter einschalten 

Zı POKE 513768,2 

53 REH Kanal 3 Kontrolliregister: reine 
r Ton, Lautstaerke 8 

34 POKE 53767,160 

35 FOR FILTERFREQAUENZ=O0 TO 255 STEP 5 
38 REM Kanal ZI Frequenzregister: 0 - h 
ohe Frequenz, 255 — tief" 7 
39 POKE 53766, FILTERFRENUENZ 

55 ? YPILTERFREQUENZ="HIFILTERFREAULENZ 
59 REM Tonfolge wit Filter spielen 

se Gcosus 100 

70 WMEXT FILTERFREQUENZ 

oe END 

100 FOR FREO=E TO 2535:POKE S1762,FREUQ: 
MEHT FREO 

118 FOR FREQ=255 TO B STEP -i1:POKE Sı7? 
62,FRED:NEXT FRE 

120 RETURN 


se? " 16-Bit-aufloesung:freg. von 8 b 
is " 65535 bei 84 khz" . 

60 POKE SI768,16:REM Kanal © und 1 ver 
binden 

78 POKE 537761,06:PoKeE 537657, 168:REM Kon 
trollreg,: Lautstaerke 8 

75 FREa=8:DIF=ı 

0 7? FREO:ICHRSC2SI 

85 REM Freqg. MSB in Kanal 1, LSB in xa 
nal 0 

98 POKE 51762, INT{FREO/256):POKE S376®8 
‚FREO-INTCFREO/2S6I #256 

108 FREO=-FREO+DIF:N-FRER/DIF 

118 If x>1988 THEM DIF-SDIFHIOB:REM Dam 
it das Ganze nicht zu lange dauert! 
120 IF FREO(6SSIS THEM 88 

148 POKE S3768,00 

150 IF LÄUF(2 THEN Laufz2ı? "jetzt 1.7 
2 MHZ*:COoTOo 75 

168 EuDb 
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Superradio 


für ZX-Spectrum 48K 





Wer da glaubte, den Autoren erfolgreicher Spiel- 
programme seien längst die Ideen ausgegangen, 
der irrt gewaltig, wie unser vorliegendes Beispiel 
zeigt. 

Bei Superradio müssen Sie innerhalb kurzer Zeit 
versuchen, Bauelemente dreier verschiedener Ra- 
dios zu verdrahten. Das ist durchaus nicht einfach, 
soll jedoch (wie uns die Programmierer dieses 
Spieles versichern) auch von Leuten zu schaffen 
sein, die nicht perfekt in Sachen Elektronik sind. 
Viel Spaß! 


1 REM - #+=#shier 15 
raägen##+ 
2 POKE 23755,8: DUT 157,2: OU 
T 157,8 
LET teile=7: LET runde=zi: PA 
RINT AT 21,2; "Einen Augenblick b 
tre I": GO SUB 2008: GO 5UB #388 
50 SUB 9988: GO 5UB 3128 
4 LET teben=3: score=d 
49 LET a=28: LET b=139 
8: LET zeit=758 
128 PLOT 3,6 
125 IF runde>=2 THEN GO 35UB 528 
127 IF runde=3 THEN 50 SUB 588 
130 IF 3=51 AnD.b=e112 THEN LET 
b= 1088: LET-Z=2+1 
IF 3=43 AnD THEN LET : 
THEN LET 


THEN LET 
b=129 THEN LET 


Zeichen eint 


155 IF = jis AND 
=193: LET z=Z2+1 
178 IF 3=148 AND 
b=81: LET z=2+1 
; IF 3=154 AND 
7: LET Z=Z+1 
IF a3=112 AND 


b=53 THEN LET 
b5=937 THEN LET 
b5=121 THEN GO 
THEN 6 
e$="J" THEN 


8,15; "LEBEN: A: 
zei us IZATO,D;, 


zeit-i 

THEN LET ä5="Du h 
Zeit veber- Schr 
hast Du ein Lebe 


ex="T" 


PRINT AT 
ZEIT; 
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Mm 
Programmhilfen: 


- In Zeile 1 nach dem Befehl "RAM” 20 Frei- 
zeichen dahinter setzen 

- In Zeile 9021 muß bei Treble und Volume folgen- 
des eingegeben weden: 
Capss Shift + Symbol Shift + Taste 5 dann 
C.S.+S.S.+T.7 dann C.S.+S.S.+T.3 

- Die Zeilen 1025, 1030, 4010, 9021, 9028, 9029 
enthalten die User defined Graphics, d.h. die in 
diesen Zeilen stehenden Großbuchstaben müssen 
im Graphic-Modus eingegeben werden. 





‚o_TO 3899 
u IF POINT (a+1,b)=1 AND POIN 
(#-1,b)=1 AND POINT (s,b+1) AN 
POINT ia, b-i) THEN LET a5="bu 
ist so gefahren, dass Du nic 
in der Lage gewesen bis 
weiter zu fahren und ver- lie 


AND POI 
AND PO 


AND POI 
AND PO 


330 LET 3=3+ (INKEYS="3" 
(rl, ee edel 
{a-1,b) =D) 

319 der’ b=zb+(INKEYS=- Ba 
NT (&,b+2)=28) - (INKEY3="5 
INT (ä,b-1) =D) 

328 RETURN 

+88 LET joy=In 31 

+18 LET a=3+1j0oy=1 AND POINT ia 
ee be AND POINT (3-1,b 
J)=B) 

428 LET »=b+(j0o4=38 AND POINT ia 
‚b+1)=8)-{j04=4 AND PDINT (ä,D-1 
I =D) 

438 RETURN 

598 IF 3=34 Ha b=125 THEN LET 
a=57: LET z=z+1 

5sı8 IF a=142 AND b=105 THEN LET 

: LET b=182: LET zZ=2+1 
RETURN 
IF 3=95 AND b=45 THEN LET b 
LET ı 
IF 3=184 AND b=19 THEN LET 
; LET z=2+i 
IF a=112 AND b=45 THEN LET 
‘LET z=Z2+1 
IF a=128 AND b=19 THEN LET 
LET z=2+1 
RETURN 
IF zi»teile THEN LET as="Du 
bist an das Erdungskäabel ge- ko 

suEen, ohne älle Teile im 51 

EImRLEIS Mıt eingeschlossen zuha 


& "TO 3888 


———— m 


—. 


1218 FOR ‚%=158 TO-152 STEP -t!: .P 


LOT 185,%:. BEEP .085,x710: DRAU 

DUER 2,180: PLOT 105,%-1: DRAU 

15,8: NEXT 

1820 FOR x=0 TO 38 STEP 5: TIROL 

E PRPER &; San® @; FLASH 1;,211,18 
7,%: NEXT 


1225 IF Funde» =D THEN PRINT AT 5 


‚85; FLASH 1; INK 2; PAPER 5; "a%$" 
SAT 7,16; INK 6; PAPER 7; BRICHT 
1, "MN":AT 8,18, “Oop" 

1838 PRINT AT 8,808; INK 8;"S5"; AT 
h „29; INK 3; "'R";AT &,29; INK in 
1059 RESTORE 18808: FOR x=1 TO 16 
; READ laenge,hoehe: BEEP Laenge 
‚hoehe: NEXT * 

i050 DATA 1,5,1,5,1,7/8,8,..1,5,1 
‚7,1,9,1,8,1,10,2,9,.1,7,1.5.1.7 


RE, 2,5 
1870 LET Score=score+10080-zeit 
12838 LET runde=srunde+i1: IF runde 
=4 THEN 60 SUB 15088: Go To 3120 


1050 PRINT FLASH 1; PAPER 5; INK 
5 21,0; Auf ın die naeche 

te Runde “ 

11989 Pause 1: PAUSE 598: LS 6 


0_ SUB 98808: GO TO 18 

1588 FOR x=i TO 2: RESTORE. 15908: 
FOR _i=1 TO 17: READ taenge ‚hoch 
Tage BEEP Laenge,hoehe: NEXT i: NE 


1518 DATR ,7533,.5,571,7,1,5,1,8 
i 48) ro, 

TO 27 RESTORE 1523 

FOR i=i1 TO 2i: REAB Laenge ‚noeh 


BEEP läaenge,hoehe: NEX ı NE 
x 

1530 DATA..75,15,.5,14,.5,14,.5, 
12,1,10,.75,12,.5,18,. ‚18,.5,8, 
1,)7,.25;5,.125,7,.125,8,.5,10,.5 
,‚12,,5,85:5,5,1,3,.5,7,.5,8,2,3 


1558 RETURN 

208082 RESTÜRE 22208 

2018 FOR i=23752 TO 23 

2828 RERD x: POKE ı,x 

20838 NEXT i 

2048 DATA 353,80,54,6,85,1&,255.,12 

1,1598,119,935,124 ‚144 ‚32,248 ‚281 

2858 FOR i=1 TO 21: READ 35: FÜR 
x=B TO 7: RERD 3: POKE USR a$+x 

8: NEXT x: NEXT i 

2eB6RB DATA ae aa 2 za, Ze 73 


8,"c",®, 39,154, 3 
2078 ‚DATR "4",8,87,85,85, 88.88, 
',8,74,74,74,74,74,126, 2,° 


2850 DATA "a" ,255,128,146,,1654 ,14 
6,164,255,51,'n", 
‚175,161 ,255 NT, 
9,245,135, Han ‚255,1, 


re 128, an 
‚255,1, 


3775 


‚4,2 ,28, 
S,"E" 17.32 ,08. 104 .2a0- #4 

o" ‚438, 132,66,38,31 
2 DA TA 


6273 2 
"a",24.108,72, Ta2:86,21 
‚24,80,56,8,16,141,80 
s ‚6,24 ,224 
11.498.136 855,255 ‚a5 


23888 FOR no TO 25: RANDOMIZE uS 
R 23768: NEXT i 
38108 FOR ı=1 TO LEN as: PRINT. AT 
8,0; INK 1} PAPER 5:3%{ TO i 
BEEP i#,881,175: NEXT i 
IF leben 


Sa2e LET leben=ieben-i. 

=® THEN 60 TG 3188 

3230 PRINT AT 28,08;"Du hast eın 
Leben weniger, Ver- suche es noc 
h einsal ! “; PAUSE 1: 
PAUSE 1088 

3850 CLS : GO SUB 9088: co TO 190 
3188 PRINT AT 228,0; "Du hast leid 
er alle Leben ver- loren.” 


3118 RESTORE 5118: FOR s=1 TO 14 

: READ \saense, hoehe: BEEP Laengse 

‚hoehe: NEXT 

3115 DATA BR, 2,1,8,1,5,1 
1,*,1,8,2 


‚2>1,4,1,5,1,4,1,4,1,2, 
“Wilst Du noch ein Sp 


3128 INPUT 
iel ? (jin) ";b$: IF b$="j" OR b 


5="J" THEN RUN 
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'K 2;24,0: 


3138 STOP 

4888 CLS INPUT 
Anleitung ? (jznI"”;b$: 

"OR b$="N" THEN GO TO 

4018 LET bs="Super-Radio--—ä" 

ET 3$="Zä4--Super-Rädio 

4028 FOR *=8 TO 14: PRINT AT ®, e 
Ein ee TO. 15);: PAUSE 5: 


"Yillst Du Eine 


PRINT AT ®, 
BEnETt "To 31-%); PAUSE 5: N 


Exr 
aase FOR x=341 TO 16 STEP -1: PRI 
NT AT 8,x; Are TO 31-x);" °": PA 
USE 5: NEXT F 
4035 EUR x= 16 To 8 STEP -1: 'PRIN 
TAT B,x;3$;" ": PAUSE S: NEXT x 
a FÖR x=16_ TO ® STEP -1: PRIN 
TAT ne Gt, T0218)7,77 77 7PAU 


SE 5; 
+084D BORDER" 1: PRPER 3: INK 6: 5 
LS : PRINT "Das Ziel dieses 5pie 
les ıst es, die Bauelemente im I 
nneren drei verschiedener Radios 
nit einem rah u verbinden." 
4042 PRINT " ; 
-Der Draht kann sich 

nicht mit einen änderen ueber 
kreuzen, 
-Man verliert eines 
Leben: 
wenn Bän Sich selbs 
t sit den Draht einkreist 

&* wenn die 1098 Zeite 
ınheiten veberschritten werd 
en oder wenn man ein B 
avelenment aus deu Stronkreis 
ausschliesst" 
4844 PRINT '"-Man kann auch nur 
bei einer Seite eines Bauele 
sents hinein- fahren."’'"Druoecke 
eine Taste !": PAUSE 29080 
4846 BORDER 2: PAPER &: INK 1: © 
LS : PRINT "Näachdes san einen Rä 
dıo ver- drahtet hat, konnt m 
an zu den naechsten. Die Punkt 
e werden n=ch den Motto veroe 
ben: 


ahtung 


seiner drei 


er Anfang der Verdr 
ist der Antennenansc 
hluss und das Ende die Erdleit 
ung,"’'"Druecke eine Taste !": pP 
DusE aan: PAPER 7: BORDER 7: IN 
4288 PRINT AT 28,8; "Bitte dJdruecke 
"set fver Jo 

ystick oder a BB AT 5 
Tastatur (556; 758) .": INPUT c$: 
"in" AND c$<>"T" AND <> 

>"J" THEN GO TO 4208 

: RETURN 
SoBB DRAU 28,158: DRAU 245,0: DRA 
U8,-158. DRAU -2458,8: PLOT 175, 
Bann 8,158: PLOT 175,75: DRAU 
SBp8l FOR x=d TO oe STEE So: SIRCL 
E INK x79; a 407: x 

PL 
"18,18 


PLOT 165,10: DRAU 


RR x=8. TO 7 STEP .5: CIRCL 
E ‚40,110 ,%: NEXT x 
9BB4 FLör 8,158: DRAW 68,28: Bau 
T 13,158: DRAU 55,17: DRAU -5, 
9885 FOR x=75 TO 175 STEP 15 


SBRP PLOT x%,15%8: DRAU 9,108: NEXT 
DRAU -98,0 


9087 PLOT 45,112: DRAU 15,8: PLO 

T 45,108: DRAU 15,0 

9883 PRINT AT 12,7; Ink 6: "E: 
‚76: -11,8: PLOT 80 


tBRAK 
INT AT 15,6; INK 5; PAPER 
: al AT 17,6; INK 5; 


PLOT 
-5,8 


A 
PLOT 71,52: DRAU 9,0: PLOT 
71,36: DRAU 9,8 3 
sB12 F BRINT INK 1; _PRPER 5;AT 15, 
17, ve Ar EG nat 18.17; 0m 


-18,0: P 
2;100,1410. DRAU IN 


PLOT INK 2;1904,104: DR 
PLOT INK 25105,93 


sB14 PLOT 1655 


AU INK 2;,16,8: 
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MA A A AT 











ı DRAU INK 2;8,98 

S2156 PLOT 112,118: DRAU 8,10 
9817 PLOT 188,148: DRAU D,-10: P 
LOT 116,148: DRAU 8,-10 

Br PLOT 10,140: DRAW 18,-108,1. 
9819 CIRCLE 225,58,12: CIRCLE 19 
5,50,10 

9828 PLOT 225,58: DRAW 18,7: PLO 
T 195,580: DRAW -9,5 : 
sa21 PRINT AT 18,23; "m. 'Eyi" 
99822 PLOT 249,18: DRAU 7,-8,1.9 
9823 PLOT 248,11: DRAU 7,-8,1.9 
9224 PLOT 248,12: DRAU 7,-8,1.,9 


9825 FOR x=135 TO 158: PLOT x,15 
®8: DRAU INK 2;08,19: NEXT x 

9825 PRINT AT 28,22; FLASH 1; IN 
K_3; PAPER 6; "SUPERSOFT" 

9827 IF runde=1 THEN RETURN 

9028 PRINT AT 6,9, "A%": PLOT 72, 
123: DRAW -5,8: PLOT 88,123: DRA 


u 5,8 
9829 PRINT AT _ 7,16; "MN";AT 8,156; 
"OP": PLOT 135,184: DRAU 8,-2: P 





9831 IF runde=2 THEN 
9032 PRINT AT a er 17, 
70m; PLOT 96,20: Drau 0,24. 
„eig! 284,28: Drau 8,24: PLOT 11 
Bu ‚24: PLOT 120,28: DR 
35 
2135 SEHBNE suoo 
ORE 9188: FOR 3-1 To 25 
: RERD Laenge, P 
‚noshe: Nenpeshoehe: BEEF Laäenge 
TA ,5,5,.5,4,.5,7,, 
25,9,.25,7,.28,5,.28.3. DB 2 "48 
5,.5,0,.5,5,..5 
».5,12,.5,10,.5.9, 


»9,.5,7,,5, 
URN 


9999 PRINT "Noch 


S4PEEK 23731 BEER AusEN 23739+25 


23555-255#PEEK 


23654;" Bytes frei !ı* 





„m | m || nun mono annm 





LOT 198,185: DRAU 3,0 
9998 LET teile=9 





Zeichen-Generator 


für den ZX-Spectrum 


Das Programm ”Zeichen-Generator” erleichtert die Entwicklung, 
Ablage und spätere Abspeicherung selbstdefinierter Zeichen ("user 
defined graphics”) oder kompletter neuer Zeichensätze (z.B. 


Kursivschrift usw.) 


Neue Zeichensätze können oberhalb 
RAMTOP ins RAM geschrieben und 
nach Änderung der Systemvariablen 
CHARS aufgerufen werden (siehe 
Handbuch). Der im ROM bei Adresse 
15360 stehende Zeichensatz enthält 
1024 Bytes. wovon die ersten 256 Bytes 
den Wert 255 enthalten; dann folgen 
die Bitmuster (pro Zeichen 8 Bytes) von 
CHRS 32 (SPACE) bis CHR$ 127 (). 
Neu definierte Zeichensätze müssen 
also auch mit einem Block von 256 
Bytes mit dem Wert 255 beginnen, an- 
schlieBend folgen die Bytes für die ein- 
zelnen Zeichen. 

Das Programm fragt die Speichergröße 
und die Zahl der gewünschten 
Zeichensätze ab, setzt dann RAMTOP 
unterhalb der Zeichensätze und belegt 
dann in den einzelnen Zeichensätzen 
die ersten 256 Bytes mit dem Wert 255 
durch ein kleines Maschinenpro- 
gramm in Zeile I (die durch POKE 
23756,0 zu Zeile 0 und damit nicht 
editierbar gemacht wird). 
Anschließend können auf einem 8x8 
Zeichenfeld die neuen Zeichen ent- 
wickelt werden: 

Cursorsteuerung über die Tasten 5-8, 
setzen eines Punktes über Taste P/p, 
löschen eines Punktes über Taste, 
ablegen der Bitmuster im RAM über 
Taste Z/z im gewünschten Zeichensatz, 


32 HOMECOMPUTER 


über Taste U/u im UDG-Bereich. 
Gleichzeitig werden die Werte der acht 
Bytes des definierten Zeichens ange- 
zeigt, so daß sie auch notiert werden 
können und z.B. in DATA-Zeilen eines 
anderen Programmes verwendet werden 
können. 

Nach Betätigen von Taste S/s wird die 
SAVE-Routine aufgerufen, wobei zu- 
nächst die Zahl der Zeichensätze, 
RAMTOP, Startadresse der Zeichen- 
sätze sowie die Werte, die in die System- 
variable CHARS (23607) zum Aufruf 
der einzelnen Zeichensätze ggePOKEd 
werden müssen, angezeigt werden; an- 























L 
s 
ae GENERATOR 2 
x 2 REM zErcHeNTeehern s 
de 
3 POKE 23808 ‚25: BORDER 1: PA = 
Li 
BERE> „208: LET vdy=300: L 
ET SET SS: LET save=509: LET € 
nde =7RE; zu Anzeist der r ® 
6 REM Felder ZU5 
detinienten ZB): DIM RE = 
. DIM esi96): ish: 
ER hE(S6h ioeı: DIM ' 
\ Lj 
ı® 
ELS.: 
REES, | 
. AT 21,9 Snuse_d ® 
3,0; 15; IT 


i REH z43+#++:26 ZEIC 





schließend Anzeige des erforderlichen 
Befehls zum späteren Laden der 
Zeichensätze. 

Wenn zu Beginn Speicherplatz für 
Zeichensätze reserviert wurde, wird die- 
ser gesamte Bereich einschließlich des 
UDG-Bereichs abgespeichert, sonst 
nur UDG-Zeichen. 

NB: Bei angeschlossenem Microdrive 
sind einige kleine Änderungen nötig. 
Im Maschinencode muß an 3. und 4. 
Stelle die Adresse des 6. Bytes des Basic- 
Programmes in L/H-Folge stehen. der 
POKE-Befehl in Zeile 465 bezieht sich 
ebenfalls auf das 6. Byte des Basic- 
Programmes, und der MC-Aufruf in 
Zeile 490 muß die Adresse des 7. Bytes 
enthalten. Diese Adressen sind alle mit 
Hilfe der Systemvariablen PROG 
(23635/23636) zu errechnen. 






HEN#++#** 
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25 CLS : PRINT TAB S;"sZEICHEN 

ZEEBERRTER INK- A: AT a3 

“: FOR i=& TO 11: PRINT TE 
AT 4,3; "WU ;AT 1,12: 0": NEXT; 
PRINT INK i;AT 42,5; 

35 PRINT PAPER 7; BRIGHT 1:ArT 
14,0; "Cursor-Steuerung: Tasten 5 
-ö P: Punkt setzen 

8: Punkt loesthen 
2: Zeichen ablegen (Zeiche 
nsaätzj)u Zeichen ablegen {UDG} 
A Erklaerung und Zeichens 
ätz- Definition 
S: SAVE Zeichensatz 
40 LET x=4: LET y=4 


&5 PRINT INK 1;AT %,49; FLASH ı 


5® REH Tastäturäabfrage 
52 PAUSE 28 . 
IF INKEY$="5" THEN 60 


SE SUB i 
0 IF INKEY3="86" THEN 60 SuB i 
55 IF INKEY$="7" THEN 60 SuB i 
a IF INKEYS="8" THEN 60 SUB uf 
no IF INKEYSs="@" THEN 60 SUB i 

S4+ IF INKEY$="p" oR INKEYS="p" 
THEN 60 TO 148 

65 IF INKEY$="Z".OR INKEYS="7z" 
THEN GO TG def 

68 IF INKEYS$S="A" OR INKEYS="3" 
THEN 60 TO erkiı 

78 IF INKEYS="S" OR INKEYS="s" 
THEN 50 TO saye 

72 IF INKEY$="U" OR INKEY$="u" 
THEN 60 TO uds 

74 60 TO 5 

99 REH Cursorsteuerung 

1988 IF SCREEN {x,y) <>"z" THEN 


PRINT AT x ,y;" “ 
192 LET y=y-1: IF Y<& THEN LET 
y=4 


105 60 SUB 158: RETURN 
110 IF SCREENS (x ,y)c>"s" THEN 
PRINT AT x ,y;" 


319 LET x=x41: IF x)11 THEN LET 
x= 

115 60 SUB 159: RETURN 

120 IF SCREENS (x,4)<>"s" THEN 


PRINT AT x ,y; 
zur LET x=X-1: IF xc4 THEN LET 
x= 


125 60 SUB 158: RETURN 
130 IF SCREENS (x,y) c3"#" THEN 


PRINT AT x 4; 
SSR TERE Y=4+1: IF y>11 THEN LET 
= 
1395 60 5UB 158: RETURN 
140 PRINT -INK 3; BRIGHT 1;AT x, 

y;”#": GO TO 58 
150 IF SCREEN$ IX,Y) <>3"=" THEN 

RETURN 
155 PRINT INK 1;,AT X,y; FLASH 1 
"EM: RETURN 


288 REM der Berechnung neues 

Zeichen POKE ueber RAHTOP 

ZBi POKE 25555,08 

203 IF NOT zS 'THEN CLS : PRINT 

AT 15,8; "Es sind noch keine Zeic 
Bönsaetzevorbereitet 1": 60 TO & 


285 PRINT AT 14 ,B; 18; 18; 15; 18; 1 


‚ts; ls; 15 
285 PRINT AT 5,16; "Es koennen d 
ie"; AT 65,18; "Zeichen von";AT 7,2 
‚EHRE 52 bis";AT 8,16; "CHRsS 12 
(Space";AT 9,16;"bis ©) neu de 
fi-";AT 18,16; "niert werden." 

287 IF z=e=1 THEN LET zsi=ze- so 
TO 228 : 

219 PRINT BRIGHT 1;AT 28,8; "In 
welchen Zeichensatz ablegen 7(1 
bis ";zs;") 

zsi 


y NPUT 
zsic<i OR zsi»zs THEN 50 


217 PRINT AT 28,08; 18; 15 
22EB PRINT SRIRE: 1;,AT 2,9; "Zeic 
z 


hensatiz ";zs 

225 PRINT BRIGHT 1;AT 19,9; "Auf» 
Weiches Zeichen soll das neu 
definierte Zeichen abgelest wer 


92 bis CHRs 127) *: 
230 LET 3=C0DE a$: IF a<32 OR a 
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'ET de2te: 


T 16,08;5$ 
2s0 LET ramıiop=54008 
Due LET D=f3810p-(25-7511=z10244 
250 LET Zeich=b4+48+ (83-321 
255 FOR k=4-TO 11: LET c= 
2608 FOR j=11.T0 4 STEP _ı 
865 LET e=j+-1411 
270 IF SCREENS (k,yj)="4" THEN L 
ET d=s2te: LET c=c4d 


275 NEXT ; 
280 PRINT AT k,08;c: poke 
c: LET zeichszeich+i 


285 NEXT 
280_PRINT SO;AT 0,6;- FLASH A:"E 
PAUSE 8 


ıne Taste druecken” 
895 CLS : 60 TO 25 

S8® REH uds Berechnung des Zei 
chens und PÖKE UDG 

"Sn PRINT AT 14,0; 18; \$; I8; I5;1{ 
383 POKE 25558,3 

S285 PRINT BRIGHT 15AT 19,8; "Auf 
weiches Zeichen soll as: neu 
definierte Zeichen abgelest wer 
den ? (WER - U) ir 
INPUT a%$ 


318 LET a=C0DE 5: LET b=3 
SiS IF 365 OR 2355 THEN 60 TO 


305 
LET uv${/3-84) =CHRS 3 
P T_BRIEHT 1;AT 14,8; "Neu 
e UD6G f Zeichen: “IR 
T_16,9;u8;" - 
32 


zeich, 


345 NEXT 3J 

558 PRINT AT k,Bd;cC: 
RS 3+(k=-4) ,c 

355 NEXT k { 
368 LET YE(b-54)=CHR$ (b+79): p 
RINT BRICHT 1;AT 17,0; v5;" 


.378_PRINT #2; AT 8,6; FLASH 1;"E 
ine Taste dryecken“: PAUSE 2 

588 CLS : 50 TO 25 

+88 REM erki 
Zeichensatz- efınition 

+82 CLS : PRINT TAB S; "#ZEICHEN 
GENERATOR =" "Dieses Prograam 
unterstuetzt dj F 
sıdefinierter”","Zeichen oder neu 


*8S PRINT "saetze und Ablage in 
UDG-Bereichoder geSchvetzt ober 
als eigene Zeichensa 


POKE USR CH 


etze," 

+10 PRINT ’"Diese werden dann u 
eber ein","POKE der Systenvariab 
ven CHARS 1235986/25359>7) aufgeru 

n%." 

#15 PRINT "Der Sincläir-Zeiche 
nsaätz kann dann veber ein erne 
vies POKE"," (POKE 23607,58} swied 
er benutzt “erden.” 

+32 PRINT AT 19,8; "40 solı das 
neudefinierte","Zeichen abgelegt 

werden ?7",* ver Zeichensät 
=": . INPUT 5 

+35 IF (357>"U" AND as<:"u") AN 
D (a8, "N" AND a8<>"n") THEN G0 
TO 4328 

+49 PRINT AT 19,0; 8; 18; (58 

R 35="u" THEN 60 


445 IF a$g="y" 09 
TO 25 


+50 PRINT AT 20,0; "Wieviele Zei 
(mensaetze ?","(maxinal-3)": INP 
zs 


a IF zs<1 OR zsyS THEN 60 TO 
455 POKE 23768,z 

475 LET Fästop=540898 

ade LET Fawntop=rantop- (zs-1)+10 


+35 POKE 25738, Fanlop-2556:INT ( 


Fantor/256): POKE 25731,INT (ran 
10P 7255} 

+90 RANDOHIZE USR 23761 

495 CLS : 50 TO 25 

500 REN save Löäge der Zeichen- 
sSa@tze Aufrufe SAUE 

585 CLs 
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un 










518 IF NOT zs THEN 60 TO 608 


545 PRINT "Es wurden definiert: 


528 PRINT NIE 


"Zeichensatz 1 
er 
25 


F zs»1 THNEN PRINT "bis 






7? AJZN) "ag 


615 IE ascı "Jr A zig 
So TO EP ND a$1>"Jj" THEN 















D 
' 
’ 
’ 
‘ 
‘ 
‘ 522 IF zs=1 THEN PRINT 
’ 
' 
' 
ı 
’ 
' 
‘ 


Trn 
552 PRINT s8;AT 8,6; 
ine Taste drusczken": 
555. 0L5 
swdefinierten”, 
558 PRINT "CLEAR 
ER REEN 23731) -1;,": 


finierten 


co 
618 INPUT 





525 LET rantop=PEEK 23739+255#P 





FLASH 4; "E 
PAUSE 9 
PRINT "Laden des selb 
"Zeichensatzes:" 
"\ (PEEK 25758 

LORD "oO 


565 INPUT “Solten die bisher de 
Zeichen äbgespeicher 


505 PRINT ’"Laden durch LOAD "" 
"abspeichern der UDE 


Springer-Sp 


für den ZX-Spectrum 16/48K 































Eeso PRINT ’"RAHTOP Liegt bei Psıs 

R "RA 3 T i- 545 IF ägiy"g”" A y MT 

5: »"Aaufruf won” 08,70, ende An 
53 ; 55 : PRINT AT 21,8; FLASH 
549 FÜR n=i TO zs r 3;"Casse i er RAT 
545 PRINT "Zeichensatz “;n:" b Se a N 

57 Tirsmtop durch POKE 23597, „u°8. PRINT AT 21,0; 15: PRINT ar 
;ramtop/ = ‚S; FLASH 1;"Eine Ta 
550 LET rantop=rantop+1024: NEXA en": PAUSE ; 6576 En DEIEER 


{JzN) 


T0°’25 
715 7CL5 





‘ 
' 
' 
’ 
’ 
’ 
’ 
L 
Li 
L 
L 
‘ 
‘ 
s 
[3 
‘ 
’ 
’ 
’ 
’ 
’ 
‘ 
‘ 
' 
L 
U 
' 
’ 
' 
’ 
’ 
: =ac$: 
i 
' 
L 
‘ 
‘ 
' 
1 
, 
[1 
’ 
Li 
L 
’ 
Li 
’ 
’ 
' 
i 
L 
Li 
' 
' 
[ 
L 
' 


ı 

L 

ı 

[1 

L 

[1 

U 

‘ 

1 

. werden ? {J/NI "538 s RETURN ; 

578 IF asc>")" AND a8<>"J" THEN 828 LET dsta-31)= 1 

EIS INPUT "Namen eingeben ";äs + BEIDRA > ar N 

’ ı re} L 4 5 2 

_588 IF as="" THEN LET ag="ZEICH „eg BET ES (a-31)=CHRS a; LET ss 
EN" 3848 5 = = 

588 SSuETNeBBDE® (BEER 09-58,228 a ee 

598 SAU a3 Srs0+ 850 LET _r = 5 

a 3° KEngge-sunscnme a: Let se | 

EK 2373531 - k 25730+ 658 LET n$Ila- = : ’ 

5731)). INPUT "verify 7? (J/N) =h5, RETURN 31) =CHR$ 3: LET s$ 
";as a LET i$(a-31) = 

S82_ IF aso“u" AND as4>"j" THEN is; LET 48 (8-31)=CHRS a: LET ss 
So Pe ee 

595 CLS : PRINT AT 21,8; FLASH, „680 LET JS(8-S1)=CHRS a: LET ss 

nee einlegen . VERIFY seo. BAVE "ZeichenGgen" LINE 9019 ’ 

n=237 2 

© :ı 537 PRINT AT 21,8;15: PRINT AT a: ROKE naar NEXTN end ; 

21,5; FLASH 1;"Eıne Taste drueck 9820 DATA 8,58,208,92,237,91,178 ı 

enge ELSE ARınT "Es wurden UDG 034424 >4.92,1,0.1,237.176,61,20 

> vo - + »1,0,9,9, 5, R 

@ definiert," 9838 Run - 235,24 ,238 ! 

’ 

’ 





Wie der Springer beim Schach zieht, das wissen Sie bestimmt: näm- 
lich eins geradeaus und eins diagonal. Bei unserem vorliegenden Li- 


sting ist daraus ein eigenes Spiel entstanden, das gut aufgebaut und 
mit gelungener Grafik versehen ist. . 

Da nicht nur eine ausreichende Programmbeschreibung, sondern 
überdies eine Demo-Routine implementiert ist, brauchen wir hier 
nicht viel zu erklären. Variablenliste und Programmaufbau sollen 
jedoch zu Ihrer Information nicht unterschlagen werden. 


Variablenliste: 

zug: Zugzahl 

DIM a(25): Gilt für die Wertigkeit der 
Felder am Start 

2= rot, 7= weiß, 6= gelb = leer 

DIM b(25): Ist die Wertigkeit der Felder 
im Endzustand 

y: Reihe, in der die Spielsteine bzw. die 
Buchstaben a-y gedruckt.werden. 

x: Spalte, in der die Spielsteine bzw. die 
Buchstaben a-y gedruckt werden 
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B$: Eingabe der Ausgangsposition 
des Zuges 

b!: Numerischer Wert der Ausgangs- 
position des Zuges (1-25) 

wS: Wird für die Beschreibung 
benötigt 

POKE 23692,1255: Bewirkt, daß die 
SCROLL-Abfrage unterbleibt. 
POKE23658,1: Bewirkt, daß die 
Kleinschreibung eingeschaltet wird. 
e$: Eingabe ob Spielen, Demo oder 


- PRINT AT 28,0:"Soltien 
Weitere Zeichen definiertwerden 


718 IF ag="u" OR age) 

PRINT AT 10,11; 
[5 Zeichenanzeige 

81a LET c$13-31)=CHR$ 3: LET 55 







TI/NI "a 


-=-—- - u | — nn | |. nn... 


) 


INPUT 35 
THEN 60 


FLA 
STOP 3% 








Ende 

DIM g(25): Anzahl der möglichen 
Züge auf das entsprechende Feld 
DIM h(25,8): In diesem Feld sind alle 
möglichen Züge enthalten 

demo: Demonstration = | oder 

c: ist das leere gelbe Feld 

f$: Löschen von 31 Zeichen 


Programmablauf: 

1-10: Bildschirmfarbe 

30-45: Festlegung der Felderwertigkeit 
für Beginn und Ende 
100-200: Zeichnet 
dung 

400-540: Druckt die Spielsteine 
825-890: Druckt den Namen, die 
Ausgangs- und Endposition 

und die Buchstaben a-y 

1000-1200: Zugabfrage, Zugkontrolle, 
Kontrolle ob Endposition erreicht ist 
oder ob Aufgabe 


Spielfeldumran- 





NOVEMBER 1984 


||| nm nn nn m m mm m mm mm mm nmmmn num nm nm mm m um m mn nun nn Ten m — en nn m mn m mm nn ma nr rn nn 


. mE = Eu gL D ha) 
1.95 8: ychaO - ri 
“95- 0 . 
s9oL Wu» 
oa WC. 
Foönuns: 
ur 1900 ° 
J ıa voc 
Ju "au 
"EN 
: DCuuLz 
8 "äayva 
Andretun 
DJaru > 
2 OIU Dommu ONN DEN 
nad : “De : ERW 
cc Au “LLLL DOyvsch 
JaoJlDs“» “ 48900 JUmmsnd 
LunTüwo Vacdv IT DawuN: ‘ 
ILLD 3C Du: Sr co: : > 8% Hdslid U: 
Dax-+zooran au 1 2D0HNWDNc | 1:0: Ort ri aan 
2.004 DcäD: u U-# NZ-0#L0#0 i “an Dan IL HZUOFOUN4 
s IL Im cv II InDsu auml » 5 nn zZ coau 
27:4: 4::4:9> WON JOD: m. £Eüdvu CE CC: 90 U vuur vFrHür: U Lsogaaaage 
FFSFSFXTrOL uw MC Hi oc U nFoW#>0 Ferühkman: FOcCHh: . FJ  Ta-Xgon + “"kFFrkkerr 
WI2 T: I: : 7: Or OL-DHIZrON Ur-VEsvo-UND-o Ju Un-su=ou KLcid-chk UL LOOE-WUE-UEIT “UIELELTE 
Kb oda dd BUSUNSB-LO) JIchantBsleacalIn- Jon9 II“ I J LuturiwäH JH-HOLT-Z win & SHuUrD Kooadann 
Sen A“ J20L I m-cHV £L WwLUr) m and de 2 Wo - 9 O8 - Ir 7 Ne 
BBHr9cHrEBLDO 9 LO -uOll Deu 220 Ousur BD :0> ON MOD BUODUuUN 060999 .20#N9 XINSNENAHHWO--HUNNHNNOO 
09: A: 20: 9- ACHÜHFNZOH #4 “1 Dal GC DR chus: Der NOHHZDA MNHFNO- AEABOUFDUNN "FUNDNOELANNFNDN 
1 Ka Ba Dal = BEE Be 17 OASHOH VOR Hua nröndu ZOI9- HH“ OU-rHn,JALAHlarnd ADD AOFZONG NH "HA aan 
4424: 422470 x DU-ONJUHMN: OUNAL MWANDELKNÜIDTONAJO-HNIUNAO ENNDOUOE 0O00-HEZON DEAN MEAN 


[een a nn nn nn m m mm mm mm m mm m mm mm m mu —- 


2ı 
LET wsS=' 


IIIbGER 


PRINT AT 
'!"5509098'": 


N 


4 
sur ro 
ir» ie 
Der" Bee 
HAaAs4OTL 
erlel eirie 
au Mann 
DNO-AHN4 


oblemspietL 


9,15,693,63,127,127,255 
192,24390,252,252,254,25 
2S55,2553,127,127,0893,653, 

255,255,254,254.,252,25 
24,128,125,259,255,125 
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B 
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PRIN 
21 


THEN GO TO 100 
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03 
0 
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[6 
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"9090" 
AT 


FABAHZIIUXFX 
FNc» HE Hrn 
UU-UNO-PMPWZ Z 
JaR En 55 0 

FW CUDN- 8 - 

Ba VE TEE 117 :) 

AngnLDode Ss 
x» AOO UM CAR 


PRINT AT 21, 
Go To 20 


ir din) <«>aln 
5000 
THEN STOP 


10009 
LET (0b) = 
RETURN 
"zuege:'; 
THEN 00 TO 9308 


oo TO 


LET cab: 


THEN PRINT 


THEN 


‚IRND=#=19) +40©: 
‚253; 


und mögliche 


> 
a 
To 
12 


D- 

99. MM. ’ 
OD AL a Mn HK 
HERAN KRILITZUHON 

H DH 


» INKEYS 


OTTO WARNECKE 
AT 


REM SPRINGER-SPIEL 
‚ar ı 
mno=1 THEN 


Anzahl 
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zb cC_2 iı 2 
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Beschreibung und Abfrage 


He+uoX Hr un 
herbo uuou L&>0 wooun u OWL OD 
INOSLZZIOI HANLZZUON: : H „a0 moa 

n 4 x 


Pr INKEYS=!'" 


U MEXT, N 
59 _ PRINT 


. 
. 
. 
. 


IF INKEYS= 


I 
u 
[14 


Tr. 21,0; 


9000-9050: Grafikzeichen 
3 
© 
Fi 
© 


9100-9350 


ob Spielen oder Demo 
Züge 


4000-4130 Demo 


oder Ende 
8000-8150 
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8310 bAaTn 2,ı12,1ı8 
3320 DATH 3,11.13,19 
»338 DATA 4,15,20,12,1«4 
19340 DATA 3,13,15,.17 
(93850 DATA 2/13.1& 
ı 9896: 
9597: 
98938 
© 3223 arze 
ı 2902, CLEAR SAUE 1; "SPRING 
ER ER SINE i: VERIFY Alm? ;27"SPpR 
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Name der Veranstaltung 


Fachtagung d. Ges. f. Informatik 
Photokina '84 
Computertage '84 
Hobby-Elektronik '84 
Computertage Hückelhoven 
Interradio 84 

Hobby + Elektronik 84 
Computertage '84 
Computertage '84 
Bayerischer Computertag 
Computertage '84 

Hessische Computertage 
Computertage '85 
Computertage ’85 
Microcomputer ’85 
Computertage '85 
Computertage '85 
Computertage '85 
Computertage ’85 
Computertage '85 
Computer & Communication '85 
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Datum 


08.10. - 10.10.84 
10.10. - 16.10.84 
12.10. - 14.10.84 
17.10. - 21.10.84 
20.10. - 21.10.84 
26.10. - 28.10.83 
15.11. - 18.11.84 
15.11. - 18.11.84 
23.11. - 25.11.84 
nur 02.12.84 
03.12. - 05.12.84 
08.12. - 09.12.84 
08.01. - 10.01.85 
16.01. - 18.01.85 
29.01. - 03.02.85 
22.02. - 24.02.85 
28.02. - 03.03.85 
15.03. - 17.03.85 
03.05. - 05.05.85 
03.05. - 05.05.85 
15.05. - 19.05.85 





PROOFONAUNHER 
Dr ER ER 


00- 


Kost Du mine east, das Programm 
re BAER pi rs immer 


Ort 


Berlin 

Köln 

Siegen 
Stuttgart 
Hückelhoven 
Hannover 
Wien 
Ludwigshafen 
Fulda 
München 
Heidelberg 
Neu-Isenburg 
Heilbronn 
Wesel 
Frankfurt/M 
Recklinghausen 
Oberhausen 
Mainz 
Bochum 
Mönchengladb. 
Sindelfingen 
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Space-Fire 
für den ZX-81 + 16K RAM 


Das Programm Space-Fire läuft 
auf dem ZX-81 16K RAM. Sie 
müssen, um zu überleben, die 
feindlichen Schiffe, welche ver- 
suchen auf Ihrem Planeten zu 
landen, mit Ihrer Phaserkanone 
aufzuhalten. 

Gelingt Ihnen das nicht, so ver- 
lieren Sie einen Energiepunkt. 
Haben Sie keine Energie- 
punkte, so verlieren Sie eines Ih- 
rer drei eigenen Schiffe. 

Sind alle drei Schiffe zerstört, 
so ist das Spiel beendet. Für die 
feindlichen Schiffe bekommen 
Sie je nach Art 10-100 Punkte. 
Der High-Score liegt bei 300 
Punkten. Überbieten Sie den 
Highscore, so können Sie sich 
als Highscore-Halter eintra- 
gen. 

Von Zeit zu Zeit fliegt ein Ver- 
sorgungsschiff vorbei. Treffen 
Sie es, so können Sie 100 
weitere Punkte auf Ihrem 
Score-Stand buchen. Gelenkt 
wird Ihr Schiff nach rechts mit 
0, nach links mit 1. Feuern kön- 
nen Sie mit den Tasten 2 und 9. 
Falls Ihnen der Highscore zu 
hoch oder zu niedrig ist, können 
Sie die Zeile 3 verändern. Das 
Spiel wird nach dem Laden, 
welches mit "LOAD” möglich 
ist, sofort gestartet. Dann er- 
scheint das Titelbild, welches 
Sie durch einen Tastendruck 
wegscrollen können. 
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ie PEEK 16517:>52 THEN RÄND 


651 
BRIKT AT 19,18;° FiR i 


2 PRINT AT 9% 24 m . 
#8 PRINT AT ‚ae; "tCc) BY" 
2,2:"0.BAETZ 
5a FOR -L=d8 TO 200 
IF INKEYSC}"" THEN GOTO 60 
NEXT L 


CLS 

FOR L=d TO 21 
SOROLL 

NEXT L 

PRINT AT 8,8;" 


11 
JSR 
20 


Zen 


B):.8..4:580 
22233... 10 
B:.+,:2:4,,.48 
RERRERRRRS- 


89 BEE AT 7,8," 
POINT 


POENTS 
POINTS 


POINTS" 
83 PRINT 
84 PRINT " FIRE. ss s44+,+L=2 9= 
CONTROL. .+,.. t=ei.0= 


as PRINT 
86 PRINT " Kes......100 POINT 
" Sp FOR L=2 TO 508 
81 IF INKEYScCH"" THEN GOTO S6 
32 NEXT L 


L=8 TO 21 
OLL 
104 PRINT AT 
118 FOR A=d T 
1308 NEXT A 
19 PAINT AT es 
258 PRINT AT ER Fhie 


165 LET C=10 


12 


B=InT 

FL= Tut. TRNDESO) #1 

Mezum" 

DOT=INT IRND=#2) +3 
21 


LET 

IF PP=0 THEN LET B=B+i 

IE PP=30_THEN LET PP=2s 

IF PP=2 THEN LET B=8- 

Ir DDT=2 THEN LET Ns=" 

Ir Pp=2 THEN PRINT AT A, 
AT A-1,8+ 

Ir PP= i "THEN PRINT AT A,B;H 
T ‚BB 


ir PP=O THEN PRINT AT A,B; 
-1,B-1; "PP 

fr DOT=3 THEN LET Hg=" 
DDT=2 THEN LET N$=" 
InNKEYS="®8" THEN LET D=ö+ 


INKEYS="1" THEN LET O=c- 


FL=18 THEN FOR T=a8 TO 27 
FL=18 THEN IF INKEYS="0" 


IF INKEYS=" 1" 

PRINT AT 21,C 

€ PRINT AT 10,T 

F FL=18 THEN IF INKEYS="9" 
INKEY$="2" THEN ECTO 22080 


347 IF FL=i8 THEN NEXT T 
© 17 FL=10 THEN PRINT AT 308,2 


-inG 
HDHM 
MRANDEN 
E3 
Pam» 


FAR) 


NINE CE 
»OGMOMOG 
Eu 


THEN LET E=E-i 
AND CeB THEN LET 


AND DDT=2 THEN L 
AND DDT=5 THEN L 
AND DDT=2 TrHEN L 
THEN LET 
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=0 THEN PRINT AT 


HM 
Sn; AT 


THEN PRINT Ar_ 
-2: 3 ı8 
‚AT 10, 13°: 
"4 0- . AT 
a0 THEN NEXT zZ 


a THEN LET E=3 
+55 THEN PRINT AT 1,27 


Jun0@ 0» 


per» 


THEN GOTO 299 
A-3_STEP -2 
PRINT Ar 5,55, "P;AT 3,55; 
IF INKEYS="9" THEN LET C=C+ 
IF InKEYS="1" THEN LET C=c- 


IF INKEYS="0" OR INKEYS="1" 
u - % 


zB 
num 


» 


PRINT AT 21,C-1; 
NEXT 3 
LET 5=5+3 

F B=35 THEN ERINT 


“+ DIR“ 


AT 5-1,55; 
m PART 5-2,33-3, m 
u5=- 
FF 5=55 THEN LET 50=50+10 
IF B=55 AND DDT=& THEN LET 


+58 
IF 8=55 THEN PRINT AT 1,755 


c 
838 _7F Sc=n5 THEN PRINT AT 19, 
0; " AT 10.19: "HIGH- se 


7 HEN LET N5=50 
Ir SC) =H3 THEN PRINT AT 1,1 


5-53 THEN G60OTO 253 


28 
29.19; "GAHE-OVER") 


9o-R®. 


NEXT 
Ir SC+=H3 THEN FOR 0=8 TO 2 
Ir SCy=zn5 THEN PRINT AT 3,0 


1023 IF SC;=HS THEN NEXT © 
1030 PRINT AT 14,0, "BE Sc 


POhkDbie 


ee 
1959 E02 ni 
m 


ME nern THEN G0T0 1080 


95 PARUSE 189 
GOTO 188 
stor 
SAUE "SPADE-FIRB” 
GOoTO & 
U=18 TO 
BRIBT AT 18, 


LET T=T+i 
ERINT AT V,C;"r 


PRINT AT U,C; 
LET SCe50+108 
PRINT AT ı 307 


ni 3 


“on 


8.71; 
2100 60 
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Dieses auf dem Oric I 16/48 Kbyte RAM lauffähige Programm für 
vier Teilnehmer handelt von der Börse und dem dortigen Handel mit 


Schwarzer Freitag 


oder das Börsenspiel 
für den Oric 116/48 KByte RAM 


Aktien sowie Währungen verschiedener Länder (auch Sorten 


genannt). 


Jeder Spieler geht mit einem Kapital von 
DM 500.-, sowie jeweils 10 Hunderter- 
paketen der vier Währungen GBP 
(Great Britain Pound). SFR (Schweizer 
Franken), USD (United Stated Dollar) 
und ’YEN (Japanisches Geld) an den 
Start. Durch geschicktes Kaufen und 
Verkaufen von Aktien und Sorten ist 
möglichst schnell ein Vermögen von 
100.000- DM zu sammeln. Sobald 
dieses Ziel von einem der Teilnehmer 
erreicht ist, endet das Spiel. 

Die Aktienkurse werden einerseits 
durch den An- bzw. Verkauf von 
Aktien, andererseits und im größeren 
Maße vom Handel mit Sorten beein- 
Nußt und bestimmt. Hierfür gilt ei- 
nerseits das Prinzip von Angebot und 
Nachfrage, andererseits eine in jeder 
Spielrunde neugetroffene Vereinba- 
rung. die zusammen mit den Kursen 
der verschiedenen Sorten angezeigt 
wird. Hierbei bedeutet ein aufwärts 
weisender Pfeil fürden dahinterstchen- 
den Namen einer der acht "Aktien- 
gesellschaften” Apple, Commodore, 
Dragon. IBM, Memotech, Oric, Sinc- 
lair und Tandy, daß mit dem Kauf der 
Sorte ein Kursanstieg verbunden ist. 
Umgekehrt bedeutet der aufwärts zei- 
gende Pfeileine Kursschwächung beim 
Erwerb zusätzlicher Hunderterpakete 
der Sorte. Beim Verkauf von Einheiten 
der entsprecheriden Sorte wird genau 
das Gegenteil, nämlich Kursfall bei 
Pfeil-hoch und Kursanstieg bei Pfeil- 
runter bewirkt. Die Sortenkurse selbst 
werden einerseits durch ein Zufalls- 
prinzip. andererseits durch den Han- 
del bestimmt. Letzteres wiederrum 
nach dem Angebot- und Nachfrage 
System. 

Beim An- und Verkauf von Sorten so- 
wie beim Verkauf von Aktien. wird eine 
Bearbeitungsgebühr von 10% des Be- 
trages erhoben. Beim Ankauf von 
Aktien liegt ein anderes System zu- 
grunde: Für jede Aktie wird eine vom 
Zeitpunkt des Erwerbs abhängige Ge- 
bührerhoben, und zwareine DM für die 
erstgekaufte, zwei DM für die zweite, 
drei DM für die dritte Aktie usw. Das 
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heißt, wenn man z.B. fünf Aktien er- 
wirbt, hat man.1#+2+3+4+5=15DM. 
zusätzlich zum Kurswert mit fünf 
multipliziert zu entrichten. Dabei istes 
gleichgültig, ob die Aktien auf einmal 
oder in mehreren Raten gekauft wer- 
den: allerdings wird die Gebühr für die 
erste Aktie am Anfang jeder Runde auf 
eine DM zurückgesetzt. Es ist möglich 
ein Konto zu überziehen: ein Kredit bis 
zu 100.000,- DM wird eingeräumt. Wer 
allerdings diese Grenze erreicht oder 
überschreitet bzw. zuerreichen oder zu 
überschreiten droht, wird automatisch 
zum Erwerb weiterer Aktien oder Sorten- 
einheiten ausgeschlossen und darf erst 
wieder Einkäufe tätigen. sobald er die 
100.000.- DM Grenze wieder überschrit- 
ten hat, Im übrigen werden für Schul- 
den Zinsen in Höhe von 20% per 
Runde fällig. 

Für jeden Spieler sind nicht mehr als 
999 Hunderterpakete jeder Sorte und 
nicht mehr als 255 Aktien jeder Firma 
zu erhalten; natürlich darf man hier 
keine Minusbeträge aufweisen. 

Sobald der Kurs einer Aktie unter die 
Null-DM-Grenze fällt, wird dies als ne- 
gative Dividende aufdie Aktionäre ver- 
teilt. das heißt jeder Teilnehmer, der 
Aktien dieser Firma besitzt, hat fürjede 
solche Aktie den Betrag zu zahlen: um- 
gekehrt erhält jeder Aktionär eine 
positive Dividende, sobald der Kurs 
seiner Aktie über 250- DM steigt. 


Spielablauf: 
Nach der Anleitung, die jederzeit durch 
Drücken der Leertaste unterbrochen 
werden kann, wird vom Programm zu- 
nächst die Zahl der Spieler abgefragt. 
Sofern die Eingabe nicht im Bereich 
zwischen eins und vier ist, wird dies mit 
einem ZAP und einer Wiederholung 
der Fragestellung quittiert, was übri- 
gens im ganzen Programm nach einer 
Falscheingabe der Fall ist. 

Sodann werden die Namen der Teil- 
nehmer abgefragt, wobei kein Name 
dem anderen gleich sein darf. An- 
dererseits wird dies als Falscheingabe 
betrachtet. 
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Daran anschließend beginnt das eigent- 
liche Spiel. Die Kurse der vier Sorten 
sowie deren Einfluß auf die Aktien- 
kurse werden angezeigt: außerdem der 
Sorten- und Aktienbesitz sowie das Ka- 


‚ pital des Spielers. Letzterer kann nun- 


mehr durch Eingabe eines der Kenn- 
buchstaben Kfaufen). V(erkaufen) und 
O(k) entweder seine Sortenvorräte auf- 
stocken. abbauen oder zum nächsten 
Abschnitt vorgehen. Da durch den An- 
und Verkauf von Sorten deren Kurse 
beeinflußt werden. werden diese nach je- 
dem Kauf- oder Verkaufsyorgang neu 
angezeigt 

Durch Eingabe von O(k) gelangt der 
Spieler zum nächsten Spielschritt. 
nämlich zur Anzeige der Aktien- 
kurse, die beim ersten Druchgang alle 
auf 100.- DM stehen. Zusammen mit 
den Aktienkursen wird wiederrum der 
Aktienbesitz sowie das Kapital des 
Spielers angezeigt. Der Spieler sollte 
nunmehr entsprechend seines Sorten- 
handels und den damit verbundenen 
Kursbeeinflußungen Aktien Kaufen) 
und/oder V(erkaufen). Auch dieser 
Spielabschnitt wird durch Eingabe 
von O(k) verlassen. Sobald dies gesche- 
hen ist. werden die neuen Aktienkurse 
(die aus dem Handel mit Sorten und 
Aktien resultieren) berechnet. Even- 
tuelle Renditen (siehe oben) werden 
zur Kenntnis gebracht. 


Wenn dieser letzte Spielabschnitt ver- 


lassen wurde. ist der nächste Spieler an 
der Reihe. Nachdem auf diese Art alle 


Spieler einmal 'gezogen‘. also ihnen 


günstig erscheinende Transaktionen 
durchgeführt haben. beginnt eine neue 
Runde, das heißt es werden neue Verein- 
barungen über die Beeinflußung der 
Aktienkurse durch den Handel mit 
Sorten gültig. 


Hinweise zum Programm: 

Das Programm benötigtetwas mehr als 
9 Kilobyte RAM. ist also etwa 9300 
Zeichen lang. Da der 16K-Oric nur ca. 
7000 Zeichen frei hat, sofern er sich im 
RELEASE-Modus befindet. muß vor 
dem Eingeben ein GRAB ausgeführt 
werden. Da jedoch ein ROM-Fehlerdie 
korrekte Ausführung des GRAB- 
Befehls vereitelt (wodurch der Zeichen- 
satz mit Variablendaten überschrieben 
werden könnte). ist es am sinnvollsten. 


das Programm zunächst bis Zeile 97 


einzutippen und einmal ablaufen zu 
lassen. Hiernach dürfte es auch auf der 


I6K-Version des Oric-! keine Pro- 
- bleme mehr geben. Im übrigen müßte 


das Programm meines Erachtens auch 
auf dem Oric Atmos lauffähig sein. 
Folgende Variablen finden im Pro- 
grammablauf Verwendung: 
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ETSUSTELSEHETUHENHLHEE LOL SER END 


?u REM Hr DAS BUERSENSPIEL Be 73 
= NEM xr# COPYRIGHT CC) 1984 Fr 
40 REN ++ EV 248 
5a REN rt SERG TEGEDER +44 
gu REM Kt KEFLERSTRASSE 5 ir 23 
rn REM #r4 5266 NEUNKIRCHEN +4+ 
en REM + TEL. ' BZ247 74147? 4343 


REM KERKrrEhr RER 

95 GRAB:HIMEN HBIFF+ PEEK( #220 X 20 343008 : DIN LESC28 3, MUle, 123 
97 INK 7 PAPER BICLS:FOFE #265#A,42 

100 CNe4: TEB="DHS BOERSENSPIEL......1C) JOERG TEGEDER* :GüSUB 50388 
1168 GOSUB. 66088: LT=19:GOSUB 59489: LLS 

125 FRs="Wieviele Spielen?" :LA=1:PY=12!PX=8’CO=FNAC7):GUSUE 56286 
1205 SPeVALCANS>D:1F-SP<I OR SP>4 THEN ZAP:GOTO 126 

146 FOR PL=i TO SPIFRSe"Ihr Name, Spieler ":NU=PL:GOSUB 56686 

150 FRESFRE+NUS+" 7 ıPR=B  PY=13: CO=SFHAC7 II LA=18:GOSUB 58208 :NAsCPL)= 
AN$ “ 

1€E8 IF PL=1 THEN GOTO 195 

178 FOR Hi=s1 TO PL-1:IF NASCHLI<ONÄSCFL) THEN NEXT H1:GUTU 198 ELSE 
Hi=PL NEXT 

180 ZAP:PL=PL-1:NEXT PL 

19a IF NASCPL>="" THEN GUTO 156 
266 KACPI.I=SBA FOR Hi=1 TO 4:AKCPL,H19=2568: NEXT Hi,PL J 
2 FOR 5081 TO 4180 SC I=SG0 SO I+C FNAC3I=-2 IECFNAC LU I+FNAC LO I+ENAC IS) 
-3) 
224 IF 30080 %K3 THEN SOt SU J=S0C SG >+FNACLEI:GHTU 220 * 

225 IF S0XS0 »>508. THEN Six Su )=S0t SO >-FNAC1B):GOTO 225 
ERBE BONES SIEBEN HI< >BELSOU J:BEC SO I=BEL SO >+2 
24% NEXT SU 
259 FÜR PL=1 TO SPıCLS:LD=B:0T=PL+1! TP=10:G0OSUB 58509 : LO=PL+SP-1 
2 Fa} ES 5 I+NASC PL I+FUSC 1LO-LENCNASCPL II 3+PUSC 1 D>+CHRSC 4 3" Sor 
enkurse" 

Z7u TESSTES+PFUSC3 HLESCHI:GUSUE 50308 

75 PY=22:G0SUB S3208 

280 FOR S0=1. TO 4: TES=S08L SOI+PUSCB-LENSOK SO) ):NU=SOL SO) GOSUB 5 
osa6 
294 NU=BECSUI:GUSUB 50706 : TES=TER+FUSC 3-LENCNUSPIHHUSF"DN*+FUSCHIHT 
HRSC93) 
295 CO=FAC INTLESUCSOI/1UB)) 

zu TES=STES+AGSCLEI+PUSC 1E-LENCAHGSULE II I+HFUSC 18-LENG AGSCHB IF IHCHRSC 


94) 
BE Teen TERERe HEI:PY=SO+2:GUSUB 38188: 0T=S0:LD=3: TP=5:G0SUB S5u568 
N T . 
319 TES="Ihr Sortenbesitz...":PY=8:L0=PL+3:GOSUB 8188 
Be TESSCHRSCHZI'FOR SU=1 TO 4: TES=STEB+SOSCSOIHCHRECIHZI: NEXT SU:PY= 
Y+l 2 
334 GOSUE SO1aK: TESSCHRECH2): FOR So=1 TU 4:NU=SAKCPL, SO): GUSUB 506706 
348 NU=HB:GOSUB SbEns ı HISSLESC-IFCLENCNUS XS) HrNUS 
= DUB SRT RIES EN HER TITTEN TERLELE SAN SENDE SO: PY=PY+1:GO 
re 
360 TF%="Hlle Werte beziehen sich" :PY=PY+1:G0$UB 59186 
De ERNEUT. OR SR ae 
ga PY=PY+2:TEs=" Kapital... ":CO=PL+2: 1 
BE NEHT PLI:GOSUB 50508 : TESSLEFK 5 +NUE+ "DH +LEFLE): PYePYe1:GOSUR 
Sul 
464 PY=18:FRS="Sorten (K)aufen, (Vderkaufen, CU)K?T" 
418 LA=1:PX=8:C00=1 :GOSUE Su260 
429 IF Als="0" THEN GOTO 718 ELSE IF ANs="Y" THEN GOTO 546 
43a IF ÄNS<C>"K" THEN ZAP:GOTO 418 
445 FRS="Welche Sorte aufstocken?":GOSUB SS10B 
445 NU=BE(SO ):GOSUB 56765 
450 IF$="Hieviele Hunderterpakrete "+50850) 
deu GOSUB SBLOB:PY=PY+1 'PX=8: FRs="wollen Sie erwerben?" 
47a LA=3:GOSsUB 50208 :NU=VALCHNS> 
an OR NU+HINTCHKCPL,SOJ/2S5 7993 OR KACPL I-1. LANUFSOCSOIS-1 
490 IF Hi THEN ZHPIGOTO 478 
> TESSLESC2U I+LESCLENC TES I-20)ı PY=PY-1:GOSUB S8188:LD=8:0T=INTCNU 
290 +1" y 
518 TP=18:60SUB SBS%8 :AKC PL, SO JaAkKCPL,S0 >+NUX2SE 
s20 KACPL H=INTCKEK PL 3-1. LANUESOCSOY>ıGKCLE JEGKCLEI-NU 
530. GKCHE Jakc HE D+NU: SQL SU JE INTCSOCSO +SOCSO I/ LOBESARCNU)) 
535 IF S0CS0)>S80 THEN SUX SU )=-S08 
537 GH10 250 
540 FRs="kelche Sorte abbauen?" :GOSUB 55166 
558 NLU=BECSO):GOSUB SE7868 
564 TEs="uieviele Hunderterfakete "+SORKS0) 
578 GOSUB SB1HB:PY=PY+1'PX=9:FRs="wollen Sie abstossen?" 
580 LA=2:G9$SUB SH2H8 : NU=VALCANS> 
534 IF NU<D OR NU>INTCAKCPL,SO)/256> THEN ZAPIıGOTO 550 
Eu TESSLES 20 IH LESCLENCTEFI-20 )  PY=PY-1 1 GOSUB SO180;Lb=1 
81H NT=5- IHTCHU/ZBB I: TP=1B  GOSUB 56508 : AK{PL,S0 eAKCPL,50>-255+hU 
620 KHÜPL I=INTCKFK PL I+. 9KNUKSIKCSO I GKCLBI=SGKCLEI+NU 
[27] GKCHB I=GKC HB -NU : SOC SO >= INTC SOCSO I-S0C 50 9/ LEBESORCNUD) 
640 IF SOCSOIS2 THEN SO(SüU)=3 
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Variablenliste: 

AG: Nummer, der gerade behandel- 
ten Aktiengesellschaft 

AG$(1..8): Die Namen der acht 
Aktiengesellschaften 

AK(1..SP,1..8): Aktien- und Sorten- 
besitz der Spieler (Sorte*256+ Aktien). 
ANS$: Von Inputroutine (Zeile 50200 ff.) 
aufgegebene Antwort. 

BE(a..4);: Vom Handel beeinflußter 
Aktienkurs (Pfeil hoch*256+Pfeil'run- 
ter). 

CO: Farbinformation für Textausga- 
beroutine (Zeile 50000 oder 50300ff.) 
FA(0..5): Nach Wärmegrad geordnete 
Farbtöne für Kursanzeigen 

FR$: Frage für Inputroutine (Zeile 
50200fE.) 

GK(1..8): Grad der Beeinflußung 
durch Sortenhandel 

HI, H2, H3, HI$S: Hilfsvariablen für 
verschiedene Zwecke 

HB: MSB der Zahl nach Aufruf der 
Zahl=> MSB, LSB-Routine (Zeile 
50700) 

KA(1..SP): Kapital der Spieler 
KF(1..8): Zahl der gekauften Aktien 
KU(1..8): Kurse der Aktien (alter 
Kurs*256 + neuer Kurs) 

LA: Information über maximale Ein- 
gabelänge für Inputroutine (Zeile 
50200FT.) 

LB: LSB der Zahl nach Aufrufder Zahl 
==> MSB, LSB-Routine (Zeile . 
50700) 

LD: Liednummer für Musikroutine 
(Zeile 50500ff.) 

LE$(0..20): Null bis 20 Leerzeichen 
LT: Lautstärke für Musikroutine 
(Zeile 50S00fF.) 

MUX(0..6,0..18): Daten für sechs 'Lie- 
der’ für Musikroutine (Zeile 50500ff.) 
NAS(1..SP): Namen der Spieler 

NU: Parameter für Zahl==> String- 
Routine (Zeile 50600f., nötig wegen 
ROM-Fehler) bzw. für Zahl ==> 
MSB, LSB-Routine (Zeile 50700) 

OT: Oktave für Musikroutine (Zeile 
50500FF,) 

PL: Nummer des gerade ziehenden 
Spielers 

PX,PY: Spalten und Zeilenposition für 
Textausgaberoutine (Zeile 50000) 
PUS$(0..9): Null bis neun Punkte 

SO: Nummer der gerade behandelten 
Sorte 

50(1..4): Sortenkurse 

SP: Spielerzahl 

ST(1.8): Steigungsraten der Kurse 
TES: Text für Textausgaberoutine (Zeile 
50000 oder 503001f.) 

TP: Tempo für Musikroutine ee 
. 50S00fE.) 
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550.GUT0 2e8 

19 LD=2:0T=PL+1: TP=18:CL$:GOSUB 50508 

EB TES=LESCS INA PL +PUSC LB-LENCNAECPL II I+PUNC 1 I+CHRSCH It" Akt 
1enkurse" 

734 TES=TES+PUSC 3 IH LESCHI COSSP GOSUB 59308 

v4 FR Al=ı TO 3 PYarGtı 

FR NHEKLKCHG I: GOSUE Sp ı NUSHE : GOSUB SOBSHCD=FAc INTCLE/SB )) 

en TESSAGST AG I)+PUSC LB-LENCHGSCHG II IF". . „Alt: "+LESC S-LENG NUS> IHHUS+ 
“Log 

779 NEL RSBOSUR Susan: TES=STESt". . „Neu: "+LESC3-LENC NUSD )+NUS+ "DH" 
7a WISE SH1BB  DT=INTCHG/ZI+2:L0=2: TP=18:GOSUE 0508 

DH NEXT Alla 

aan PY=15:GOSUR 35280 

245 PY=15:C0=C0+1:TE$e*"Ihr Kapital... ":GOSUB SBLOR:NU=KACPL I: GUSUB 
SH 

839 Pr=lei TES=LESCE + NUS+ DH" +LESCE I: GOSUB ShLE8 

#55 FRS=" Aktien CKdauten, (Vberkaufen, COIKT" 

erat PRAsH-PY=]7LH=1:COel :GOSUE 59206 

“rn IE HME=E"G“ THEN HOTO 1935 ELSE IF AN$="V" THEN GOTO 978 

Fan IF ANSS>D"K" THEN ZAP:ıGOTO 855 

an FRS=e"Aktien welcher Firma kauten?":GOSUB 55008 

Fa NIEKIK AG) IGOSUB 59700 

san TE$S="Wieviele Aktien der Firma "+AGH( AG) 

“IA HS Sam EYSRYHLIFRaD  FRB= "wollen Sie erwerben?" 

“15 LA=2:GOSUE SU205  NU=YALTANS > 

1? IF NU=6 THEN GOTO 930 

“24 HI=NLKB DR NUFRKCPLSAGI=INTCHKCPL » AG 37256 31256255 OR KARCPLI=NU 
IL E<- oa 

“25 IF HI THEN ZHP:GOTO 915 

De TFESLEs ZH Hr LER LEHCTESI-2H ) : FY=PY-1 GOSUE 59180 1 LDeH: OT=INTCHU 
re] 

S46 TP=18:G0SUB 55540 :AKCPL AG JeAKL PL, AG >+NUTKATPL I=KAC PLI-NURLE 
FSB FOR Hl=B TO NLU:KACPL >eKAL PL IFCHICPBIECHI+KECHG IP NEKT HI:KFCRG) 
=K FU + N 

68 GOTO Sum 

7A FRE="Aktien welcher Fırma verkaufen?" GOSUB 55086 

San Nll=kUK AG): GOSUB 58700 

9% TES="Wieviele Aktien der Firma "+AGSCHG):GOSUB SHLEB:PY=PY+1:PX 
ar 

1HAn FRe="uollen Sie abstossen?" :LA=3:GOSYUB SU208 ! NUSYAÄLCHNE) 

Inım IF RKOPL EM = INTORKUPL AG 37258 34 25E<CNU OR NU<E THEN ZEPIGOTO 1 
[2 13) 

Er TFSSLES ZI Hr ESCLEN TEE I-28 >: Prapr-i: GOSUB SO10B:LD=1: OT=8-INT 
<NII7SH I 

1517? TP=16:GUSUB 59568 

a BES PL + AG I=HKC PL AG I=NU:KFCAG eK AG D=NU N KACPL JeKfl PL >+INTCLBAN 
144.9) 

1039 GOTO #00 

1635 LD=4:TP=10:DT=3:GOSUB 36508 : TES=LESC 14 + "Renditen... "+LESC14): 
ira] 

1937 CLS1GOSUEB SH30R:LD=S 

1944 FOR AG=1 10 8:HUe=Kut AG) GUSUE S07009:STCHGI=SSTCHG 73 

1945 AL=LEB A 
Iran STEHG EST Hu IHK Fe AG I 7 HH SGN GKC AG I IESBRCHBSCGKE RG I I IKC4=-CHL/E2) 
1347 NE=INTSHL+STERG HC FNACS I=-Z IKFNAC15 9) . 
Ins ThsenGEt AG H+FlISE 1B-LENS AGEL HU DD 3 NLISC NE<H IK LANE=CNE 256 IRCNE- 
258) 

19655 GUSUR Shsbs: TES=TES+PUSC S-LENC NUS ) )+NUS+"DM"  PY=AG+2  RD=NU 
1975 KiT=t NICH IK2+ NLUDG 54-243 CO=FK OT I: GOSUB SEID: GUSUE 50108 

ım/2 IF NEXB GR NE>2SB THEN STÜAG ER 

1075 NE=NE+T NE 299 IC NE-250 )=C NE 1B IC 1LD=-NE IC KFC AG I=B : GKCAG I=8 

1985 KIK Fa =ALKZS5HtHE: FOR Hl=1 TO SP:NU=RKCHL, AG): GUSUB SU766 

Im KHCHI s=eKAc HI IHLEXRD NEXT HI,RG : 

1105 FRS="Druecken Sie "+CHR$C 34 )+"RETURN"+CHRSC 54H IF" IH I LASD PR=B PP 
Year 

1118 GOSUB 59200: TES=LESC 19 + LESCZO I) COS: GOSUB SO59B:CLS 

1115 KACPL I=EINTEKHCPL >=-CKHCPL KO IECKHCPL 759) 

11714 IF KRCPL IC INES. THEN NEXT PL-GUIO io 

11501 P=PL ıPL=ESPENERT PL ELSE LDeS: TP=1$ 

1140 fE$="Herzlichen Glueckwunsch, "+NASCP I+FUSC 3): PY=14 

115m FOR Fe Ib STIER -1:FOR Bea TO S:CO=FHcB):GOsub Solauı HALT At 
In-b42 0 1.0= 

1169 GOSUB SGBB0-WRAIT 10:NEAT B,AICDSFAl FI: GUSUB SOHBR 

1179 TFES=PUS Syr"Sie habon alz ersten 1DOBH0DN" ıFYefY+2:G0SUB 56108 
1199 IE$="verstienen koennen und sind somit": PYs=PY+2:G0SUB SO10o 
1199 TES="S I] EG E KUPYSPY+2 I GOSUB 50109: GOSUB 50506 

1185 HALT 109: PX=b: CL5 

12065 FRy="Moechten Sie nochmals sPielen’">LAslıPYsidichei . 

1716 GOSUB Sb2a6: IF AN$e"J" THEN KUN ELSE IF ANSS>"N" THEN GOTO 128 
’ 

1720 ELSSPOKE 613,3 )0HLL NC903 - 

SbuaH FLUT 8,PY,CHKSCLOD:PLUT PX.PY, TES:RETURN 

selan Pi=INITCH4-LEM TES 42729 G0TU SUB08 

Smzas HNS="" IF PX=G THEN FA=1INTCC40-LENG FRE I=LA=1 3472) 

Suziea TESEFRErHHNreHENSC 126 + LESCLA I GOSUB SE0B5H 

Su>29 HISskEisi IF His=“" THEN GOTO 55220 
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Saz3a IF HIsı >CHKS( 127) THEN GOTO 50258 

Su248 IF ANa<>"" THEN ANS=LEFTSCHNSE LENCANSI-1 D:LA=LA+L:GOTO 58216 
59743 PING+GUTO 50228 j 

BAER HIER 13) THEN TES=SLEK ZU I+LESC 183: H1=PX :GOSUB 58188: PX 
=H1: RETURN 

50250 IF ASCCHIS%X32 THEN GUTO 50228 

30278 IF LA=8 THEN PING:'GOTO 508228 

Sso2E6 ANSSANS+HIS:LA=LA-1:GOTO 58216 

Sana HI=DEEKC#2SD)I:POKE H1,C0O:FOR H2=1 TO LENCTES) 

53316 FOKE HI+H2,RSCCMIDK TES, H2,19) 

50325 NEXT H2 RETURN 

56455 PY=-1:RERD HI$: IF HI$S="ENDE" THEN RETURN 

55418 REPERAT :PY=PY+2:C0=1+PY-SKINTCPY/E >+FNACZI-L HISFRECAS) 

Sö415 HISEHIS+LESCINTCC4B-LENCHISII72)) 

rss FOR Hi=1 TO LENCHIS>:PX=39-H1 : TES=LEFTSCHIS,H1 ):GOSUB 56886 U 
H 

DOtES HESCRENSLIE H2S=CHRSC 329 THEN HI=LENCHIS):NEXT HL:UNTIL TRUE: 
27 

59444 NEXT H1:Lben: TP=2 1 0T=PY-SKINTCPY/E #+FNAC29-1:GOSUB 50508 
Sa4S3A READ HIS:UNTIL HiS="ENDE":WAIT 75:1LD=1: TP=5:0T=0T+1 :GOSUB 565 

[017] 


BETTEN HEN Sie "+CHRSC34 I+"RETURN"+CHRECS4 IF" 1" LA 
=BıPpX 

59478 GOSUB 56265 :CLS:1G0T0 50466 

SB55H Hl=6:REPERT :H4=INTCMIKLD, H1 7256) 

58516 HS=1NTCCMLICLDE HI I-Z56KH4 3/1637 

58524 HZ=MUCLD.H19-2553H4-164H3 

56538 MUSIC 1,H3+0T,H2,LT:PLAY 1,6,7,0:WRAIT H4KTPıHI=HI+1 PLAY 8,8, 


SoS546 UNTIL MUCLDSHI >=: RETURN 

SB6BB Nlis=STResc Nud: IF NUSH THEN RETURN 

Sas18 NUS=RIGHTSC NUS, LENCNUS )-1 3: RETURN 

56785 LB=NU-2SEH INT NU/2SE ) : HE=< NU-LB I/256 : RETURN 

s500A4 PA=B: REFERAT ıLA=1 :GUSUB. S0288 

Sun Abs: REPFAT-AGSAG+L UNTIL LEFTSCAGSCAG), 1 SANS OR AG>PS:UNTIL 


55105 PX=9:REPERT:LA=1:GOSUE 56206 

Sun SO=l REFERAT :SO=SU+L UNTIL LEFTSCSOSK SO), 1 3=FINS OR SO>4:UNTIL 
SN<F:RETURN 

55268 CO=PL+2:TES="Ihr Aktienbesitz,..":PY=PY+1:GOSUB 50198 

53215 TESSCHRSCIZI:FÜOR AG=1 TO 8: TES=TES+LEFTECAGSCAG I, SIHCHRK 92): 
NEXT At 

5228 PY=PY+l :GÜSUB SH1BA: TESSCHREIZ) 

55230 FOR AG=ı TO B:NU=ÄKCPL,AGI:GOSUE 58786: NU=LB:GOSUB 50606 
55240 HIS=LESC-IFLLENCNUS IS IIHNUSFLESC -IKCLENC NUS)=1)) 

55254 TES=TES+HISHCHRECIZIH NEXT AG:PY=PY+1:GOSUB S6168:RETURN 
933393 STOP 

eaabb FÜR Hi=1 TO 26:FOR H2Z=1 TO HI:LESCHI I>LESCHL I+CHRSC 32) 

ebu62 IF HiSIB THEN FUSCHI>=PUSCHI >+CHREK 46) 

©5083 NEXT H2,Hl 

wwu5 DEF FNACZI=INTERNDC 1 2IZ I+1 

chUU6 FÜR Hi=46816 10 46521 :RERD H2:FOKE HI,H2:NEXT Hi 

68687 FÜR Hi=1 TO SI REAL AGSCHLI:KUCHI D=168:NEXT HI:FÜR Hi=1 TO 4 
©2005 RERD SüscH1>,SOcHl ):NEAT Hl 

688019 H2= REFERAT: HI=8 :REPEHT :RERD MUCHZ,HI I: HI=HI+L UNTIL MUCH2.HL 


85829 H2=H2+1:RERD HIS:ULNTIL HIS="ENDE" 

60038 FÜR Hı=9 TO S:RKERD FRACHLD:NEXT Hi 

80046 KETUKN 

60854 DAIA 8,8,8,3,8,8,8,8,8,8,8,8,42,208,8,0 

EbBsh DATA ArPp le, Commodore, Drason, IBM, Memotech,Oric, Sinclair, Tandy 
5587N DATA GEP.,380, SFR, 116, USD, 258, VEN, 49 

63000 DHIA 266,273, 273,522,6.Mel.8: 266,266, 262:266,515,6,Mel.1 
€3616 DATA 262, 266, 257,518,8,Hel.2, 268, 771,8, Mel. 3,257. 257, 257,774, 


Ee3d2n DATA ?7E3-6.Mel.5,513,257,774,774:776, 775. 1041 

5M DATA 265, 774,262, 266, 262,771: 1035,520,517,774,8, ENDE 
63045 DATA 2.4,5,1.3,7 

53506 DATA ANLEITUNG, Ziel jedes Spielers 

83518 DATA "ıst es, sein Kapital vor seinen Gesen-" 

EBEH DATA spielern auf 1EHGBHDM zu steigern. ‚ENDE 

63510 DATA DIE AKTIENKURSE, werden durch den An bzu. Verkauf 
63526 Din von Sorten beeinflusst; die Richtung 

63625 DATA der Beeinflussung wird durch Pfeile 

63638 DATA vor den Namen der (fiktiven) Aktien- 

63833 Drilh "sesellschaften deutlichsemächt,* 

E5654n DATA "irss heisst: Pfeil abwaerts...",Amkauf der Sorte ==> Ku 


63656 DATA Verkauf der Sorte ==> Kursansties 
63668 OriiH „..Pieil aufwaerts bedeutet das,Gesenteil. ‚ENDE 
5369 DATA Bei Jeder Transaktion werden,16% Bearbeitunsssgebuehr erh 


üben: 

63718 DHIR beim Kaut won Aktıen haensat sie von,der Aktienzahl ab. 
63749 DATA "Wern man z.B. 4 Aktien kauft, hat man“ 

63755 DATA I+2+3+4=100N zu zahlen. Beim Verkauf .serden wiederum 18% 


Gebwehr 
537656 DATA einbehalten, ‚UND NUN VIEL SPASS! ‚ENDE, ENDE 
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Das allseits bekannte Kartenspiel, auch als 17+ 4 
bekannt, nun für den Apple II unter Anwendung) 
der eingebauten Blockgrafik. 

Vom Computer werden je 2 Karten gezogen, wo-) 
von bei Ihnen beide Karten aufgedeckt werden. An- 
schließend haben Sie die Möglichkeit, weitere’ 
Karten aufzunehmen. Zur Bedienung benötigen 
Sie lediglich die Tasten ”J” und ”N”, da die Ta-' 
staturabfrage über ”’Get’” abläuft. 

Aber Achtung: Der Apple ist ein cleverer' 
"Kartenspieler”! 
Kurz die Regeln: 
Ziel ist es, möglichst 21 Punkte zu erreichen, wo- | 
bei bei Gleichstand der Computer verliert. Zwei 
Asse gelten auf jeden Fall als gewonnen”. Über, 
21 Punkte gilt als verloren. 








NOVEMBER 1984 


Sense nnanmnnnnonnkanandimunmsmunnaununsenmnnna nn mosuussuumnmenmenumennn un ummmnn mu m nun nn nn mn nn an nm nm eam—n 


. 


nonzsun 


“0 


285 


270 


son 


REM But ihnen tn nr 
REM I 17+4 I 
REM + DY * 
REM I t 
REM » ” 
REM I L 
REM * ” 


REM .- Inh trennt 
DM = 10000: HOME 
SPEED= 255 
REM -ANFANGSBILD- 
GR 
COLOR= 10 
VLIN 10,30 AT 5 
HLIN 7,12 AT 10: VLIN 10,30 AT 
12 
HLIN 14,18 AT 20: VLIN 18,22 AT 
18 
VLIN 10,20 AT 20: HLIN 29,2. AT 
20: VLIN 18,50 AT 23 
FOR L = 1 TO 200: NEXT L 
REM 
GOSUB 5020 
COLOR= 0: FOR I = i TO 39: VLIN 
1,59 AT I: FOR N = I TO 100: 
NEXT N,1i 
TEXT : HOME 
KOR I = 1 TO 1000: NEXT I 
mn = 14:A$ = "1 7 + 4“: GOSUB 


250 


A = 14:A$ = "CREATED BY:": GOSUB 
230 
A= I2:Ab = "MARCUS RUBENSCHU 
H": GOSUB 250 j 
A = 12:AB = "AM WALDGRÄABEN 1 
a": GOSUB 250 
A = 10:A$ = "S0c0 FRANKFURT A ) 


/Mm. 71": GOSUB 250: GOTO 270 
VTAB 12: HTAB Az PRINT As 

FOR I = 1 TO 2552 NEXT I 

FOR 6 = 1 TO 40: FOKE 758,10 
0: POKE 787,2: CALL 7709 

PRINT CHR$ (5) 

NEXT G: RETURN 

REM -SFIELBEGINN- 

FOR I = ı TO 5: FOR L = 100 TO 
10 STEP - 5: POKE 788,L:, POKE 
789,5: CALL 770: NEXT L,I 
SPEED= 200: HOME = PRINT "SI 
ND DIE RESEI.N BEKANNT (J/N) 


Frz ıWAET = 18584, 128: GET A 
> 

IF AS < », "N" THEN -GOTO 41 
Oo 

PRINT 


PRINT "ZIEL DES SPIELES IST, 
DASS MAN VERSUCHEN SOLL SDVI 
ELE PUNKTE ZU SAMMELN WIE 
MOEGLICH": PRINT "ES TDUER 
FEN ABER NICHT MEHR ALS 21 P 
UNKTEGEBEN, SONST HAT DER COM 
PUTER GEWONNEN. ": FRINT 
PRINT "DIE KARTENWERTE SIND 
‚WENN SIE NICHT SELBST AU 
F DEN KARTEN STEHEN :": PRINT 


PRINT "AS = 11 PUNKTE” 
PRINT "KOENIS = 4 PUNKTE" 
FRINT "DAME = 5 FUNKTE" 
FRINT "BUBE = 2 PUNKTE” 
FRINT 

PRINT "SIE MUESSEN ANGEBEN,W 
IEVIEL GELD SIE SETZEN." 


FRINT "WENN DER COMPUTER. MEH 
R ODER GLEICHVIELE PUNKTE HA 
T „DANN HAT DER COMPUTER GE- 

WONNEN,UND SIE VERLIEREN 
IHR GESETZTES GELD ." 


Denaanmaunnnnmmmsnennsaansunnnnmmunuusnusunnmnnmnmnmnnmnsnmnnnnmnnnennmenmmnnmunnmnseunemennun nenn nnnnsnermnnnmunnmmmunnn—- 
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390 PRINT "WENN’SIE GEWINNEN, DAN 


® 
’ 
x ı TO 1000: NEXT T 
@. N VERDOPPELT SICH IHR GESET =13 
’ 
o N 


710 HOME :Y = 7:X% 
2:M = 40 = 2 

Be = ne 

720 REM --COHFUTERKARTE ZEICHNEN 


Sal:n= 
ZTES GELD." 
395 PRINT 
’ 400: WAIT - 16384,128: GET AS 
405 REM -GELD SETZEN- 
' 410 HOME. : FOR I = 1 TO 3: FOR L 


725 KOR I = 1710,25 FOR LI= 170 
“0 STEP 2: FOKE 7&8,L: POKE 


WERT:"ICKAF" " 
890 VTAB 19: HTAB 5: PRINT "DER 
GESAMMTWERT DES COMPUTERS 2" 


40 IF KA = 2 THEN A$ = "B": GOTO 
&10 


U 
’ 
' 
L} 
’ 
’ 
’ 
Li 
’ 
’ 
[1 
’ 
L 
& J = ı TO 50: POKE 768,L: FPOKE p 769,5: CALL 770: NEXT L,I 
A 769,5: CALL 770: NEXT L,1I N 73060 INVERSE : FOR I=X TO Y: v 
@. 420 PRINT "SIE HABEN DM "sDM;" V - I: HTAB 3: PRINT " A an 
; ERFUEGBAR. " ' I: NORMAL : FOR I =N TOM: | 
' 428 PRINT : IF DM< = 0 THEN 30 fe HTAB Gr PRINT» neNEXT 
@ı 00 ı x ab 
ı 430 INPUT "WIEVIEL GELD SETZEN S 740 REM -COMPUTERKARTENWERT 
. IE ";A ) = BESTIMMEN- 
® ı 440 PRINT ; 750 CKA= INT CRND KH # 11) + 
4A5 IF A< > INT (Ar THEN PRINT |! 2 1:CAL. = CNE 
' "KEINE KOMMAZAHLEN !!!": GOTO ‚ 755  INVERSE 
® i 430 } 780 3 ERA = I OR CKA.= 5 OR CKkA 
| 450 IF A > DM THEN PRINT "SIE H ‘ ER = 6 THEN CKA = 0: GOTO 750 
@. ABEN NICHT SOVIEL GELD“ 770 ES, = 2 THEN As = "B": GOTO 
| 460 IF A< 0 THEN GOTO 410 ; 820 
ı 470 IF A< = 0 THEN PRINT "DAS ! 780 IF CkA = 3 THEN A$ = "D*: G0TO 
®@: SOLL DOCH WOHL EIN WITZ SEI ; .. 820 
' N >" ? 790 IF CKA = 4 THEN As = "K": G0T0 
1.375 IFAS =DMANDDAS >OTHE , 820 
®: GOTO 490 \ 806 IF CKA = 11 THEN As = "A": GOTO 
ı 480 FOR I = i TO 1000: NEXT Is G0OTO ! & 820 
r 410 ' 05  G0TO 830 
® "490 HOME :Y = 7:X = 1:5=1 ' 816 "REM -COMPUTERKARTENWERT IN 
' 500 REM -KARTE ZEICHNEN- r _ DIE MITTE SCHREIBEN- 
®& ı 505 INVERSE , 820 VTAB X + 3: HTABS + 2: PRINT 
ı 510 FOR I = x TO Y: VTAB I: HTAB i At: GOTO 846 
' S: PRINT " “2 NEXT I ’ 836 VTABX + I: HTAB.S + 2: PRINT 
@:! S20 ir DMSSSOTBEN GOTO 3000 { ..CKA 
| 8530 REM -KARTENWERT BESTIMMEN ı 840 NORMAL :S = S+ 7: IFS> = 
1535 FOR I = 1 TO 2: FOR L = 50 TO R 58 THENS= I: =Y+ Zıy = 
@ ı 1 STIEP - 2: POKE 758,1: POKE h EL RER 
\ 769,5: CALL 770: NEXT L,I j 850.0 =0+ 7: IFO 
Pr =30 KA= INT (RND (td) = 11) +1 h Ge2N=X+1l:M=Y-1 
‘ AL = NE ' 
545 NORMAL " 870 ENE = CAL + CKA 
eo ss0 IFkKA=10RKA=SORKA= ' 880 VTAB 17: HTAB is PRINT "DIE 
& THEN KA = 0: GOTO 540 ! KARTE DES COMPUTERS HAT DEN 
R 
’ 
' 
U 


570 IF KA = 3 THEN As = "D": GOTO 
SCHE; “ 


Fu VTAB 21: HTAB 102 PRINT "IHR 
GESAMMTWERT. :"3NES" " 

910 IF ECNE > 21 THEN GOTO 2000 

720 Ar CNE > = 17 THEN GOTD 94 


’ 
’ 
' 
‘ 
’ 
U 
®: 
’ 
! 610 
® ı 580 IF KA = 4 THEN AS = "K"z GOTO 
' 610 
890 IF KA = 11 THEN.AS = "A": GOTO 
®: 610 
1895 6G0TO 620 
1 800 REM -KARTENWERT IN DIE MITT 
® " E DER KARTE SCHREIBEN- 
\ 8610 VTAB X + 3: HTAB S + 2: PRINT 
@! As: GDTO &30 
' #20 VTAB X + 3: HTAB S + 2: PRINT 
' KA: GOTO 830 
©. esois “ish 7i,ie Bir =;S8 THEN 
, 
@: 
L 
’ 
®: 
Li 
ı 
@: 
‘ 
1 
®.: 
i 
r 
®: 
' 
' 
' 
r 
Li 
‘ 


9350 FOR I = 1 TO 400: NEXT 1: G60T0 
720 

740 REM -VERGLEICH- 

950° IF CNE > 21 THEN FOR I=ı TO 
2000: NEXT 1: GOTO 2000 

27680 IF CNE > = NE THEN FOR I = 
1 TO 2060: NEXT I: GOTO 4000 





Ss = 1:!X=Y+ 3Y.=Xr6 

640 NE = AL + KA 

650 SPEED= 255: VTAB 17: HTAB 7: 
PRINT "IHRE KARTE HAT DEN W 
ERT :"iKA;" 

&60 VTAB 19: HTAB 4: PRINT "GESA 
MMTWERT DER KARTEN IST =:";NE 


.um 
* 


655 FOR I = 1 TO 500: NEXT I: IF 
NE > 21 THEN GDTO 1000 

570 VTAB 21: HTAB S: PRINT "WUEN 
SCHEN SIE NOCH EINE KARTE 7?" 
;: GET A% 7 

880 IF A$ = "J” THEN. GOTO 505 

#90 REM -COHMPUTERKARTEN- 

700 HOME : PRINT "NUN IST DER CO 
MFUTER AN. DER REIHE": FOR T = 


970 IF ENE < NE THEN FOR I = 170 
2000: NEXT 1: GOTG S000 
7930 REM -AUSWERTUNG- 
1000 FOR I = 1 TO 5: FORL = 40 TO 
140 STEP 5: FOKE 788,L: FOKE 
759,5 CALL 770: NEXT L,I 
1002 HOME z VTAR 15: PRINT "SIE 
HABEN SICH VEBERREITZT.IHR 6 
ESETZTESGELD IST FUTSCH. "NE 
(% = Ö:AL = O:CNE = O:CAL = oO 
1005 FOÜR’I = 1 TO 50006: NEXT I 
1010 DM = DM - A: GOTO 410 
2000 FOR 1’= 1 TO S: FOR L =:140 
T0 30 STEF - 3: POKE 73598,L 
i Air 789,5: CAll 270: NEXT 


je] 
oO 
© 
z 
[=] 
2 
Z 
D 
rm 


E22 


u 
u 
[53 
4 
e 
m 
= 
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HOME VTAB 15: PRINT "DER 

COMPUTER HAT SICH UEBERREITZ 
SIE HABEN GEWONNE 

DM + AsChnE OÖ:NE 

ÖsCAL =.0 

= 1 TO 5000: 


NEXT I: G0TO 


10. TB 200: POKE 768 
POKE 769,3: CALL 770: NEXT 


„is 


3003 GR 
3004 FOR I = 1 TO ıs 
3005 COLOR= I: HLIN 1,4 AT 5: HLIN 
6,9 AT 5: HLIN 11,14 AT 5: HEIN 
16,19 AT 5: PLOT 21,5: HLIN 
. 26,29 AT 5: HLIN 31,34 AT S 
S010 HLIN 2,3 AT &: PLOT’&,&: PLor 
9,6: HLIN 12,13 AT &: PLOT ı 
6,6: PLOT 19,6: PLOT 21,6: PLOT 
26,6: PLOT 31,6: PLOT 34,4 
5020  HLIN 2,3 AT 7: PLOT 6,7: PLOT 
7,7: HLIN 12,13 AT 7: HLIN 1 
6,19 AT 7: PLOT 21,7: 
6,29 AT 72 HLIN 31,34. AT 7 
S050 HLIN 2,5 AT 8: PLOT 6,8: PLOT 
9,9: HLIN 12,13 AT B: PLOT ı 
6,8: PLOT 19,8: PLOT 21,8: PLOT 
26,8: HLIN 31,32 AT 8 
5040  HLIN 2,3 AT 9: HLIN 6,9 AT 
?:2 HLIN 12,15 AT 9: PLOT 16, 
9: PLOT 19,9: HLIN 21,24 AT 
9: HLIN 26,29 AT 9: PLOT 31, 
9: HLIN 33,34 AT 9 
S0S0 PLOT 1,11: PLOT 4,11: HLIN 
6,7? AT 1b: HLIN’11,14 AT 11: 
HLIN 17,18 AT 11: HLIN 21,2 
4 AT 11: HLIN 26,29 AT ii: PLOT 
31,11 
3060 PLOT 1,12: PLOT 3,12: PLOT. 
6,12: PLOT 9,12: PLOT 11,12 
PLOT 14,12: HLIN 17,18 AT ı 
2: HLIN 22,23 AT 12: PLOT 26 
‚12: FLOT 29,12: PLOT 31,12 
5070 HLIN 1,2 .AT 13: HLIN 6,9 AT 
15: HLIN 11,14 AT 13: HLIN ı 
7,18 AT 13: HLIN 22,23 AT ız 
: HLIN 28,29 AT 13: PLOT 31, 
13 
S080. PLOT 1,14: PLOT 3,14: PLOT 
&,14: PLOT 9,143 PLOT 11,14; 
HLIN 17,18 AT 14: HLIN 22, 
S AT 14:3 PLOT 26,14: PLOT 29 
„14:2 PLOT 31,14 
PLOT 1,15: PLOT 4,15: PLOT 
8,15: PLOT 9,15: PLOT 11,15: 
HLIN 17,18 AT 15: HLIN 22,2 
Ss AT 15: PLOT 24,15: PLOT 29 
‚15: HLIN 31,34 AT 15 
S100 PLOT 1,17: PLOT 4,17: HLIN 
6” AT 172 HLIN 11,14 AT 17: 
PLOT 18,17: PLOT 21,17: 
24,173 HLIN 26,29 AT 17: 
31,34 AT ı7 
PLOT 1,18: PLOT 4,18: PLOT 
6,18: PLOT 11,18: PLOT 14,18 
& PLOT 16,18: PLOT 21,18: PLoT 
24,18: PLOT 26,18: HLIN 3253 
> AT ı8 
5120 PLOT 1,19: PLOT 4,19: 'HLIN 
8,7 AT-192 HLIN 11,14 AT 19; 
PLOT 18,19: PLOT 21,19: PLOT 
„24,19: HLIN 26,29 AT 19:2 HLIN 
32,33 AT ı9 
150 PLOT 1,20: PLOT 4,20: PLoT 
6,20: HLIN 11,12 AT 20: PLOT 
18,20: PLOT 21,20: PLOT 24,2 
0: PLOT 29,20: HLIN 32,33 AT 


5090 


3110 
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20 

HLIN 2,3 AT Z1: HLIN 4,9 AT 

212 PLOT 11,21: HLIN 13,14 AT 
21: HLIN 15,19 AT 21: HLIN 2 

1,24 AT 21: HLIN 26,29 AT 21 


ULISTS140, 


N 2,3 AT 21: HLIN 8,9 AT 
rer 11,21: HLIN 15,14 AT 
21: HLIN 16,39 AT 217 HLIN 2 
1,24 AT 21: HLIN 26,29 AT 21 
HLIN 32,533 AT 21 
R = 1 TO 100: 


3140 


35150 FOR 
ne 15: HLIN 17,24 AT 25 
: HLIN 15,26 AT 26: HLIN 14, 

15 AT 27: HLIN 20,21 AT 27: HLIN 
26,27 AT 27 

3170 PLOT 15,29: PLOT 

20,21 AT 28: PLOT 

25,28: HLIN 16,17 

20,21 AT 29: HLIN 

9: HLIN 17,24 AT 30: 

2 T 31 

ar, 17,32: PLOT 24,32: PLOT 

7,33: PLOT 24,35: HLIN 18,2 
SAT 34 HEIN 19,22 AT 35 

RUN S020 

Be FOR I =-1 TO 3: FORL = 1 TO 

100: POKE 788,L: oe 769,53: 
CALL 770: NEXT L, 

4005 HOME VTAB 15: PRINT "DER 
COMPUTER HAT EINDEUTIG MEHR 
PUNKTE ALS SIE.SIE HABEN VE 
RLOREN !":DM DM — A:CAL = 
Ö:NE = O:AL = Ö:CNE Ö 

4010 FOR I ı TO 5000: NEXT 
410 

5000 FOR I 

1 STEP 

769,9: 

HOME 

HABEN GEWONNEN 

verttnı4sDM = DM + ArNE = 0: 

DAL O:CNE = OrAl. Ö 

S010 FOR I i TO 8000: NEXT I: 

410 

FOR S 770 TO 790: READ- Y: 
FOKE S,Y: NEXT S: DATA 173 

.49,192,1368,208,5,208,1,5,24 

0, 7,202, 2098,245,174,0,5,78,2 

‚3,96 

READ I: READ A: 
I: POKE 769, A: 
BEOTO 3000 

Be IF Q = 32 THEN RETURN 


NEXT Rs: NEXT 


silao 


18,28: HLIN 
23,28: PLOT 
AT 29: HLIN 
24,25 AT 2 


HLIN 17 


3180 


I: 


ı T0 5: FORL 
1: POKE 768,L: 
CTALL 770: NEXT L,I 
VTAB 157 PRINT "SIE 


5005 


GOTO 


5020 


POKE 748,25 
CALL 770 


SD30 
m Fe 


sol 
5040.09 =D+ 1: 


EOTO SOS0 

DATA 65, 128,111,255,65, 128, 
159,255, 111, 128,141, 128, 127, 
126,141,128,111, 255,63, 128,1 
1,255,189, 128,189, 128, 141,1 
28, 147,128, 159,255, 63,128 


Ssoso 
5080 


5070 A 111,255,1689,128,159,1 
2 an an ler aa 1s9 25.1 
41,128, 111,255,55,128, 111,25 
5,191,128,147,128,127,255,11 
1,128,111,255 

6000 END 

6555 REM — MARCUS RUBENSCHUH — 
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Unsere Zeitung war das erste deutsche 
Magazin, das für den Dragon aktuelle 
Software veröffentlichte und wirwollen 
es auch weiterhin so beibehalten und 
präsentieren in dieser Ausgabe dieses 
top-aktuelle Programm. Es kann zwar 
aufgrund der grafischen Fähigkeiten 
des Dragon nicht ganz die Qualitäten 
des Originals erreichen und hat auch 
nur 3 Disziplinen, aber Sie werden 
nach dem Eingeben feststellen, daß es 
trotzdem sehr gut gelungen ist. 

Die Disziplinen hierbei sind: 
SPEERWURF 

WEITSPRUNG 

HOCHSPRUNG 

Sie benötigen zum Spielen nur noch 
einen Joystick und schon können Sie die 
Olympischen Spiele zu sich nach 
Hause holen. 


Variablenliste: 

H: Hochsprunghöhe für Grafik 

DI: Disziplin 

Z: Hilfswert bei Joystickabfrage 

V; Variable für die Lauffiguren 

BE: Variable zur Abfrage, ob die Ge 
schwindigkeit groß genug zur Bewe- 
gung ist 

AB: Weite des Schrittes beim Anlauf 
W: X-Variable für alle Figuren 

. A: Wert des rechten Joysticks 

X: Momentangeschwindigkeit 

X1,Y: Hilfsvariablen für Zeichnung 
der Figuren 

F1,F2,F3: Figuren für Anlauf 
F4:“Figur für die Flugphase beim 
Weitsprung 

H1,H2,H3: Figuren für Hochsprung 
SP: Leerzeichen 

I: Variable für Warteschleifen und 
Tonausgabe 

S,Q: Variable zur Skalierung beim 
Weitsprung 

YU,ER: Variable für Skalierung des 
Geschwindigkeitsanzeigers 

WE: Weite beim Weitsprung 

QA: X-Variable bei Steigphase beim 
Weitsprung 

S:: Variable beim Ausrechnen der 
graph. Weite beim Weitsprung 

OZ: X-Variable bei Se beim 
Weitsprung 

OD: Anzahl der Versuche beim Weit- 
sprung & Speerwurf 

WR: Variable zur Tonausgabe 





58 HoMEcoMPUTER 


Olympiade 


für den Dragon 32/64 


Der absolute Renner derzeit in den Spielhallen ist das be- 










kannte HYPER-OLYMPICS. Dieses Spiel können Sie jetzt 


GW: Größte Weite beim Weitsprung 
OF: Variable zur Abfrage, ob die Höhe 
beim Hochsprung gerissen wurde 
P1,P2,P3: Länge der Steigphase, waa- 
gerechte Flugphase und der Sinkphase 
beim Speerwurf 

C: Y-Variable beim Speerwurf 

J: X-Wert beim Speerwurf 

WI: Anzahl der Graphikpunkte beim 
Speerwurf 

YU: Vergleichswert für 1.23 Flugphase 
beim Speerwurf' 

WY: Weite beim Speerwurf 

GY: Größte Weite beim Speerwurf 
AW: Länge der Steigphase beim 
Hochsprung 

TI: Vergleichswert für AW 

YY: Wert beim Hochsprung, ob die Bei- 
ne schon hochgezogen sind 

WR: Länge der horizontalen Flug- 
phase beim Hochsprung 

HW: Übersprungene Höhe 

HH: Höchste Höhe beim Hochsprung 
& Schleifenvariable 

FF: Anzahl der Fehlversuche beim 
Hochsprung 

ZZ: Punkte für die größte Weite beim 
Weitsprung 

00: Variable für Warteschleife 

XX: Punkte für die größte Weite beim 
Speerwurf 

HP: Punkte für die höchste Höhe 
beim Hochsprung 

DS: Zeichen für Abfrage, ob das Spiel 
wiederholt werden soll 

AS: Zeichen für Abfrage, ob die Schnel- 
ligkeit verdoppelt werden ‘kann 

AS(X): Enthalten die Zeichen für die 
Figuren 

JK,KK: Schleifenwerte 


Programmaufbau: 

10-150: In diesem Abschnitt wird alles 
zum Start des Programmes definiert 
160-360: Hier findet die Abfrage des 
Joystick statt. Außerdem wird in Zeile 
160 geprüft, ob übergetreten wurde. Ab 
Zeile 270 werden dann die Lauffiguren 
gezeichnet. In 190 wird der Geschwin- 
digkeitsgraph gezeichnet. 

370-1390: Hier wird das Spiel erklärt 
und die 'Figuren Fl. F2, F3 und F4 
definiert 

1400-1580: In diesem Abschnitt des Pro- 
grammes wird für jede der drei Diszipli- 
nen der Bildschirm vorbereitet und ge- 


auch mit Ihrem Dragon daheim in der guten Stube spielen. 






zeichnet. Auch werden hier der 
Geschwindigkeitsmesser und der Weit- 
sprung skaliert. 

1590-1840: In diesem Abschnitt wird 
der gesamte Sprung gezeichnet 
1620-1670: Steigphase 

1680-1730: Horizontale Flugphase 
1740-1760: Sinkphase und Berech- 
nung der Weite, 

In Zeile 1800 wird alles füreinen neuen 
Sprung vorbereitet. In den Zeilen 1820- 
1840 wird bekanritgegeben. ob beim 
Speerwurf oder Weitsprung über- 
getreten wurde. 

1850-2220: In diesem Abschnitt wird 
der gesamte Speerwurf gezeichnet. 
1860-2000: Steigphase 

2010-2060: Horizontale Flugphase 
2072-2130: Sinkphase 

Dann’ wird die erreichte Weite aus- 
gerechnet und angegeben. Außerdem 
wird alles für einen neuen Versuch 
vorbereitet. 

2230-2260: In diesen Zeilen wird zu . 
den einzelnen Disziplinen verzweigt. 
2270-2730: Hier wird weiterhin das 
Spiel erklärt und die Figuren HI,H2 
und H3 definiert. 

2740-3110: Hier wird der gesamte 
Hochsprung gezeichnet, 

2750-2850: Steigphase 

2860-2970: Horizontale Flugphase 
und Abfrage. ob der Feuerknopf und 
damit die Beine hochgezogen worden 
sind. 

2980-3030: Sinkphase 

3040-3110: Angabe der übersprunge- 
nen bzw. gerissenen Höhe, Außerdem 
Vorbereitung für den nächsten Sprung, 
3120-3290: Angabe der Punktzahlen 
für die größte Weite beim Weitsprung 
(3130-3180) 

für die größte Weite beim Speerwurf 
(3190-3240) 

für die größte Höhe beim Hochsprung 
(3250-3290) 

3300-3350: Berechnung der Gesamt- 
punktzahl und Abfrage, ob nochmal 
gespielt werden will. 

3360-3540: Abfrage, ob der Poke 
65495,0 angewendet werden kann. 
Zeichnung des Copyrights. 





NOVEMBER 1984 





© PMODE4, 1:SCREENI1,1:PCLS!CLS 
20 GOSUBII&6O = 

DIMAS(15) 
H=12 
DI=1 
6070370 
GOTOL400 
2=43 
PMODE4, 1?:SCREENI ,1 

v-ı 

BE=1 

AB=2 

w=8 

IFDI=2THENW=18 

PUTW, 100)-tW+10, 119) ,F3,PSET 

A=JOYSTK(O):IFW+1O>165 THENI1820 

IFPEEK (65280) =2540R PEEK (65280) =126THEN2230 
IFX?SOTHENX=SO ö 
LINE(11,150)-180, 150) ,PRESET?LINE(10,1S0)-1X+10, 150), PSET 
IFDI=2THEN LINE (W-AB-5, 109} - (W-AB+15,102) „PRESET:LINE (W-5, 109) - (W+13, 102), PS 


IFA=Z AND A=0 THENX=X+1:3PLAY"OIT2S5SL255} LI} 15 15 1"? BE=0O; Z=63: GOT0270 
IFA=Z AND A=63 THENX=X+1:PLAY"OIT2SSL2SS;5 15 1515 1*:BE=0:2=0:6070270 
xux-1 
IFX>ITHENBE=0:60T0270 
IFX<OTHENX=O 
GOTO1SO 
REM 
PUTIW-7,100)-1W, 115), SP,PSET 
IFBE< JOTHEN140 
AB=INT (X7/&) + IFAB<ITHENAB"1 
IFAB>STHENAB=4 
IFV=1 THENPUT (W, 100) -1W+10, 115) ,F1,PSET:BE=1:W=W+ AB: V=V+1:GOTO160 
IFV=2THENPUT (W, 100)=- (W+10, 115) ,F2,PSET:BE=1:W=eW+AB: V=V+1:GOTOL160 
IFV=STHENPUT (W, 100) - (W+10, 115) ,F3, PSET:BE=1:W=W+AB: V=V+1:GOT0140 
IFV=#4THENPUT (W, 100) - (W+10, 115) ,F2, PSET!BE=1:WmW+ AB! Vi 
GOTO160 
CLS:PRINT*""nilikommen zu olympia* 
PRINT"MIT OLYMPIA KOENNEN SIE SICH ALS SPITZENSPORTLER BEWEISEN.” 
PRINT*"ES GIBT: WEITSPRUNG SPEERWURF 
HOCHSPRUNG* - 
400 PRINT*ZIEL DIESE SPIELS IST, SO VIELE PUNKTE WIE MOEGLICH ZU GEWINNEN. * 
410 PRINT"UM GESCHWINDIGKEIT ZU ERREICHEN MUESSEN SIE DEN rechten JOYSTICKIN EIN 
EM BESTIMMTEN RYTHMUS HIN-UND-HER BEWEGEN. * 
420 PRINT:PRINT"TASTE DRUECKEN* 
430 IFINKEYS=" “THENAISO 
440 PCLS 
450 AB 1)="0000000000* 
460 A®{t2)="0000011100* 
470 ASI3I="0000100010* 
480 As(4)=*0000010100* 
"490 A$15)=*0000001000* 
500 AstöI="0000101000* 
510 AS(7)="0001011001* 
520 A®(8]="0010011110* 
530 AS(9)=*"0000010000” 
540 ASt 10)="0000011000* 
550 Asti1l)="0000100100* 
550 Ast 12)="0001000010* 
570 ASt 13)I="0010000100* 
S80 Ayt14)="0100001000* 
570 ASt1S31="0100000000* 
500 FORX1=1T010:FORY=1T019 
#10 IF MIDBSIASLYI,XL,Ii)="1"THEN PSETIXL1,Y, I) 
520 NEXT:NEXT 
630 DIMF1110,15)?GET10,0)7-(10,191,F1,6 
690 CLS:PRINT*"neitsprung?:* 
650 PRINT*BET DIESER DISZIPLIN MUESSEN SIEAUF DIE BEKANNTE ART AUF GE- SCHWIN 
DIGKEIT KOMMEN UND SO NAH WIE MOEGLICH AN DAS ABSPRUNG- BRETT (ERHEBUNG AUF DE 
R LAUF- BAHN! KOMMEN UND DANN DEN SPRUNGKNOPF DRUECKEN. DIE ERREICHTE WEITE 
ho; 
&40 PRINT"WIRD IHNEN DANN ANGEZEIGT." 
&70 PRINT:PRINT*TASTE DRUECKEN.* 
680 IFINKEYS=*"THENSSO 
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#90 PCLS 
700 REM 

710 AS(1)="0000000000* 

720 A®(2)=*0000011100” 

730 AS(3)="0000100010* 

740 ASt4)="0000010100* 

750 AS(5)=*0000001000* 

760 A®(6)="0000001000* 

ı 770 A${7)=*"0000011010* 

|780 As(8)="0000101100* 

ı 7720 AS{9)="0000011000* 

1800 A®(10)="0000001000* 
‚810 ASt11)="0000001100* 
1820 A®{12)="0000010100* 
1830 AS(13)="0000100010* 
1840 A®(14)=*"0000100010* 

ı 850 A$(15)="0000110011* 
1860 FORX1=1T010:FORY=1 T015 
ı870 IF MIDStAS(Y),X1,1)="1"THENPSET (X1,Y,1) 

ı 880 NEXT:NEXT 

ı 890 DIMFZ2(10,157:GET(0,0)-(10,15),F2,6 

ı900 CLS 

1910 PRINT"speernurf:* 

ı 920 PRINT*HIER GILT DAS GLEICHE WIE BEIM WEITSPRUNG, NUR DAS SIE HIER NICHT 
| SPRINGEN SONDERN EINEN SPEER WERFEN SOLLEN, * 

ı 930 PRINT:PRINT*TASTE DRUECKEN, * 

1940 IFINKEYS=""THENF4O 

| 950 PCLS 

1960 AS(&)="0000001000* 

970 AS(7)="0000111110* 

1980 AS(8)="0000101010* 

1990 AS(7)=*"0000001000* 

ı 1000 A®(10)="0000001000* 

11010 A$t11)="0000011000* 

ı 1020 A®{12)="0000011000* x 

11030 Ast13)="0000011000* 

1090 ASt14)=*0000010100* 

11050 A®{15)="0000010100* 

ı 1060 FORX1=1T010:FORY=1TO1S 

11070 IFMIDS(A$tY),X1,1)="1"THENPSET(X1,Y,1) 

‚ 1080 NEXT:NEXT 

11090 DIMFS110,15):GET(0,0)-(10,15),F3,G 

11100 PCLS:DIMSP(7,15):GET10,0)-(7,15),5P,G 

1110 CLS?PRINT"hochsprung:* 

| 1120 PRINT*HIER GILT AUCH DAS GLEICHE WIE BEIM WEITSPRUNG. DIE GESCHWINDIGKEIT 
ı BESTIMMT DIE HOEHE DES SPRUNGES. BEI NOCHMALIGEM DRUEK-KEN DES SPRUNGKNOPFES 
| ZIEHT IHR HOCHSPRINGER SEINE BEINE HOCH. *j 
1130 PRINT*DIES IST NOTWENDIG UM DIE GROS- SEN HOEHEN ZU BEWAELTIGEN. * 

| 1140 PRINT:PRINT*TASTE DRUECKEN. * 

1150 IFINKEYS=""THEN 1150 

1160 PCLS 

ı 1170 Ast1)="000000000000000" 

11180 A&t2)=*000111000000000* 

ı 1190 A&(3)=*001000100000000* 

11200 A®(4)=*000101000000000* 

‚1210 Aut5)="000010011000000* 

11220 A®(6)="000011100000000" 

1230 A®(7)=*000011000000100* 

11240 AS{8)="000001111111000" 

| 1250 AS (9) ="000000000000000* 

11260 AS(10)="000000000000000* 

1270 FORX1=1T015:FORY=1T010 

ı 1280 IFMIDS(AS(YI,X1,1)=*1*THENPSET (X1,Y,1) 

11290 NEXT:NEXT 

‚1300 DIMF4(15,10):GET(0,0)-(15,10),F4,6 

11310 PCLS 

‚1320 CLS:PRINT"achtung:” > 

11350 PRINT"1.MIT STEIGENDER GESCHWINDIGKEIT STEIGT DIE WEITE IHRER SCHRIT- TE. 


.=..—— m m m |... m. ..-.- 


’ . 
11340 PRINT"2.BEI WEITSPRUNG & SPEERWURF HABEN SIE 5 VERSUCHE, ABER BEI HOC 


I HSPRUNG KOENNEN SIE SICH HOECHSTENS 3 FEHLSPRUENGE LEISTEN, DANN SIND 
ISIE AUSGE- SCHIEDEN, * 


11350 FORII=0T05000:NEXTII 
11360 PRINT"3.ZUR BESSEREN ORIENTIERUNG WIRDDIE POSITION DES ABSPRUNG/ABWUÜRFDÜRCH 
| EINEN PUNKT UNTER DER LAUFBAHN ANGEGEBEN. AUSSERDEM WIRD DIE STELLE ANGEZEIGT, 
ı AN DER SIEDIE BEINE HOCHGEZOGEN HABEN. * 

11370 PRINT:PRINT"TASTE DRUECKEN. * 
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IFINKEYS=""THENILISSO 
60T02270 
REM : 
IFDI=3THENLINE (0,80)- (255,80) ,PSET 
LINE (0,116) - (285, 116) ,PSET 
LINE (160, 115) -1163,115) ,PSET 
IFDI=M2THENI!SSO 
a IFDI=3 THENLINE (163,115) -1163, 115-4) ,PSET:LINE (165, 115}-1190,110) ,PSET,BF:G 
‚01018530 
11460 S=167.5 
‚19470 FOR@=1T010 
11380 K=116 
‚1490 LINE(S,K)- 1S,K+S) ,PSET 
11500 S=5+9 
11510 IF@=STHENDRAW*BM204, 1235 L25 D35RISFLFDISGIILL" 
11520 NEXT@ 
11530 LINE{9,147)-(61,153) ,PSET,B 
113540 YU=20 
11550 FORER=1T04 
11560 LINEtYU,1S51)- (YU, 152) ,PSET:YU=YU+10:NEXTER 
11570 IFDI=1THENLINE (0,80) - (255,80), PSET 
ı1580 GOTO8O 
11590 REMSPRUNG 
‚1500 OD=0D+1 
11610 WE=X 
11620 PUTIW+RA, 101- (QA-1) ) - (W+10+QA, 114-(@A-1)),SP,PSET 
11630 PUT (W+BA-7,101- (QA-1I I) - (W+I+QA,114- (@A-1)) ,SP,RSET 
11640 PSET (W+QA+6,116- (QA- 1) LI: IFWAQA+6>LSSTHENIE2O 
11450 PUT (W+QA, 103- (@A-11)- (W+15+BA,113- (QA-1)),F4,PSET 
11660 QA=QA+2: IFQA=14THENL6BO 
11670 GOTO1650 
11680 FORS=1TO INT(WE#L.OISTEPZ 
11690 PUTLIW+RAI+S, 1LO3-(QA-1I 3) -tW+15+QA+S, L1I-(BA-1)),F4,PSET 
11700 NEXT 
‚1710 PUT (W+QA+S+8Z) , LOS-(QA-1)+QZ) - (W+1S+RA+S+RZ, 11I-(BA-1)+BZ) ,F4,PSET 
1720 92Z=92+2: IF@Z=1&THENI1740 
‚1730 GOTO1710 
11740 PUT t(W+QA+S+QZI , 96- (BA-1I+QZI- (W+LO+QA+S+BZ, 111-(QA-1) +02) ,F2,PSET 
11750 WE=( (W+15+@A+S+0Z) -163) /9.6856: IFWE{O THENWE=0:60T01770 
11760 WE=WE+ (RND(100) 7/1000) 
11770-FORWR=0T011:SOUNDRND (255) , L2NEXTWR 
11780 CLS:PRINTS10, *neitsprung” 
11790 PRINTS32, "WEITE: *} :PRINTUSING*##.MM"5WEI:PRINT" M":IFWEIGW THEN GW=WE 
11800 W=14:92=0:X=0:BE=1:QA=0: INPUT*WEITER"IA:PMODE4, 1?SCREENI, 1:PCLS: IFOD=STHENG 
|OSUBS120 
11810 GOTO7O 
11820 CLS: IFDI=STHENOF=1:G0T03090 
11830 IFDI=1THENPRINTS10,*weitsprung" ELSE IFDI=2THENPRINTS1O, *speernurf* 
11840 PRINT"UEBERGETRETEN! !*:0D=0D+1:G0T01800 
1850 0D=0D+1 
11860 PUT (W, 100) -(W+10,114),SP,PSET 
‚1870 PUT (W-7,100)-(W+3,114),SP,PSET 
11880 PUT(W+7,100)- (W+17, 114) ,SP,PSET 
11890 PUT (W-7,100)-1W+3,115),F2,PSET 
11900 YU=O 
11910 PSET(W+6, 117,1) : IFW+SPL5STHEN1820 
11920 Pi=X:P2=X:P3=X+5 
11930 C=105 
11940 LINE (W+I,CI- (W+J+20,C-8) ,PSET 
11950 LINE (W+J,C) -(W+J+20,C-8) ‚PRESET 
11960 J=J+4:C=C-2 
11970 Yu=Yu+l 
ı1980 IFW+J+207255 THENW=0:J=0:PCLS:LINE(0, 1161-1255, 116) ,PSET:WI=WI+255 
11990 IF Yu>Pı THENYU=0:60T02010 
‚2000 GOTO1940 
12010 LINE (W+#J,C-8) - (W+J+20,C-8) ,PSET 
12020 LINE (W+J,C-8)- (W+J+20,C-8) ,PRESET 
| 2030 JmJ+4:YU=Yu+l 
12040 IFW+J+20>23STHENW=0:J=0:PCLS:LINE(0,116)- (255,116) ‚PSET:WI=WI+255: IFWIYS0O 
HAND WI<S20 THEN DRAW" BM3S, 1234 L2HDSHRIIFIIDISGLSLI=SLINEISS, 123)-1(38,129),PSET,B 
12050 IF YU>PZ THEN YU=0:60T02070 
12060 G60T02010 
12070 LINE(W+J,C-B}-(W+J+20,C) ,PSET 
12080 LINEtW+J,C-8)-tW+J+20,C),PRESET 
12090 J=J+4:C=C+2: YU=Yu+l 
12100 IFW+J+20>2SSTHENW=0:J=0:PCLS:LINE(0, 116) -1255, 116) ‚PSET:WI=WI+255: IFWI>SOO 
HANDWI<S20 THEN DRAW" BM30, 1235 L21DS5Ri$F11D15G15L1*":LINE (35,123) -(38,129),PSET,B 
y 


D 
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' 
ız110 IF WI#903600 THENDRAW"BM121,1235D65 BM121, 1231 G3*:LINE(125,123)- (128,129) ,PS 
1ET,BSLINE (130,123) -(133,129),PSET,B . 
«2120 IF YU>PS3 THENLINE (W+J,C-8) - (W+J+20,C) ,PSET:GOTO2140 ! 
12130 G0T02070 n 
12140 WY=(WI+W+I+20-163) 77.52 ! 
12150 IFWY<COTHENWY=0:G0T02170 - 
‚2160 WY=WY+ (RND(100) 71000) s 
12170 FORTT=0T011:SOUNDRND (255) ,1:NEXTTT ‘ 
ı2180 CLS:PRINTS1O0, *speernurf* r 
12190 PRINT"WEITE: "5 :PRINTUSING’NMM.MMTIWYETPRINT“ M"iIF WY>GY THEN GyY=Wr . 
ı2200 INPUT*WEITER*jA:PMODE4, 1:SCREENI,1 ' 
12210 IF OD=STHEN GOSUB3120 h 
2220 PCLS:WI=0:J=0:%=0: BE=1:AB=0:60T070 ‘ 
12230 REM WELCHE DISZ. ' 
12240 IFDI=1THEN1S90 | 
12250 IFDI=2THEN1850 ' 
12260 IFDI=3THEN2740 ' 
ı2270 REM FIGUREN HOCHSPRUNG ' 
12280 As(1)="0000011100* r 
ı2290 AS(2)="0000100010" i 
12300 AS13)="0000010100* - 
12310 A®(4)=*0001001001* i 
12320 A$(5)=*0000101010* 8 
12330 A®(6)=*0000011100* ; 
12340 AS(7)=*0000001000* ' 
12350 AS(B)I=ABIT):ARL(MMAR(E) i 
12360 A$(10)="0000010100*:ASt11)=Ası10) j 
2370 AB(L2I=AB(LO)TAFLITIMAB(LIO)TABLLAIMABL1O) N 
12380 A$(15)=*"0000000000* ' 
12390 FORX1=1TO10:FORY=1T01S \ 
12400 K=0:5IF MIDS(AS(Y),X1,1)="1"THENK=1:PSET(X1,Y,K) ' 
12410 NEXT:NEXT 2 
ı2420 DIMH1(10,15):GET(0,0)-(10,15),H1,G ' 
12430 PCLS k 
12440 CLS;PRINT*"wertung:* D) 
12450 PRINT*DIE GROESSTE WEITE BZW. DIE GROESSTE HOEHE WERDEN ZUR BERECHNUNG | 
ıDER PUNKTE BENUTZT. NACH BEENDIGUNG DER WETTKAENPFE WIRD IHNEN DIE GESAMTPUNKT ı 
IZAHL ANGE- GEBEN.“ ) 
12460 PRINT:PRINT"TASTE DRUECKEN,DANN GEHT ES LOS. ":PRINT:PRINT*VIEL/ERFOLG...* | 
12470 IFINKEYS=""THEN2470 ! 
2460 A®(1)=*000000000010000* } 
12490 AS(2)=*000000000010010* ! 
2500 A®(3)="000000000100101* \ \ 
12510. A$(4)="000000000101001* i 
128320 AS(5)="000011111110101* " 
12530 A®(&)=*"000010001000010* i 
12540 A®(7)=*000100000000000*:AS(8)=AR(?) | 
ı2550 AS$(9}="000000000000000* ! 
12560 A®(10)="000000000000000* { 
12570 FORX1=1T015:FORY=1T010 i 
12580 IFMIDSIARLY),X1,1)="1"THENK=13PSET(X1,Y,1) “ 
ı2590 NEXT:NEXT 1 
12600 DIMH2(15,10):GET(0,0)-(15,10),H2,6 h 
12610 PCLS 1 
12620 A®(1}="000000000000000":AB12)=AB(L)ZABITI=ARLLITABIA)=ASLL) ! 
2630 A®(5)="001000000010000* ' 
12640 A®(6)="000100000010010* 1 
12650 A$(7)=*000100000100101* r 
12660 A®(8)="000010000101001* ' 
12670 A®(9)="000011111110101* " 
12680 AS$t10)=*000000001000010* ' 
12690 FORX1=1T01S:FORY=1T010 - 
ı2700 IFMIDS(AS(YI,XL,1)="1*THENPSET(X1,Y,1) ' 
12710 NEXT:NEXT : 
ı2720 DINMHS(15,10):GETt0,0)-(15,101,H3,G ' 
12730 PCLS:GOTO7?O i 
12740 REM HOCHSPRUNG 2 s 
12750 IF W+1O>182THENOF=1:60T03040 ! 
12760 PUT(W,100)-(W+7,115) ,SP,PSET r 
12770 PUT (W-7,100)-1W, 113) ,5P,PSET ' 
12780 WR=0 ‘ 
12790 AW=xX/3 ' 
12800 PUT (W,100+TI)-(W#10, 115+TI) ,H1,PSET 1 
2810 LINE(163,115)-1163, 115-H) ,PSET ' 
12820 IFW+1O>16STHENOF=1:G0T03040 I 
2830 TI=TI-i i 
12840 IF TI<-AW THENPUT (W+4,100+TI)-(W+11,115+T11,SP,PSET!GOTO2860 \ 
= j 
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' 
12850 60702800 


’ 
12860 IFYY=1THEN2890 
12870 PUT(W, 105+TI)- (W415, 115472) ,H2,PSET 
2880 60102910 
12690 PUTIW,1024TI)-(W+1S, 112411) ,H3,PSET 
12900 IFOF=1THEN2910 ELSE IF 113+TI>115-H THEN SOUNDSS,S:0F=1 
ı2910 IFPEEK(65280)=259 OR PEEK(65280)=126 THEN Yy=ıi 
12920 LINE(163, 1152-1163, 115-H) ,PSET 
12930 WR=WR+L:WeN+I 
12940 IFOF=ITHEN2960 ELSEIF 112+TI>115-H THENSOUNDSS, S:OF=1 
12950 IFOF=1THEN2960 ELSEIFYY<>1 ANDW+2=143 AND 114+T1>115-H THEN SOUNDSS,S:0F=1 
12960 IFWR>LATHEN2980 
ı2970 60102860 
12980 PUT (W,102+TI)-(W+15,112+T1),HS,PSET 
12990 WmW+1:TI=TI+2 
13000 IFOF=1 THEN3010 ELSE IFW<=160 AND 112+TI>11S-H THENSOUNDSS,S:OF=1 
13010 LINE(163, 115) -(163, 115-H) ,PSET 
ı3020 IF10O2+TI>101THENS040 
13030 60702980 
ı30490 IFOF=1THENS0SO ELSEFORII=1TOL1:SOUNDRND (255) , 12NEXTII 
13050 CLS:PRINTS10, *hochsprung" 
13060 IFOF=1THEN3090 
13070 PRINT*UEBERSPRUNGENE HOEHE: "5: PRINTUSING"HM. MM" 5 (H#L.2) /10:HW= (H#L.2I /LO:IF 
ıHWIHH THEN HH=HW 
13080 H=H+1:G0T03110 ; 
3090 FF=FF+1: IFFF=3STHENPRINT"HOEHE" 3 SPRINTUSING"HM.MM"ICHRL.2)/105: PRINT“ NICHT 
\GESCHAFFT. ":D1=0:G0T03110 \ 
13100 PRINT"GERISSENE HOEHE: "3? PRINTUSING"HH. MN" (H*1.2) /10:PRINTFFFEPRINT".FEHLV: 
VERSUCH. * ! 
3110 IFDI=OTHENS120 ELSEINPUT*WEITER"FA:PMODEA, 1:SCREENI ,1:PCLS:WR=0:TI=0:0F=0:Y, 
ıY=0: BE=0:X=0:60T070 
3120 REM PUNKTE 
13130 CLS: IFDI=1THENPRINT$10, "weitsprung" ELSE G0T03190 
13140 PRINT"WEITE="} :PRINTUSING"’##. HN" IGW 
ı3150 ZZ=(GW#1.2)%100 
13160 PRINT"PUNKTE: "7: PRINTUSING"HNNH.M“3ZZ 
ı3170 OD=0 
13180 FORO0=0T05000: NEXTOO:PMODE4, 1:SCREENI, 1:PCLS:DI=2: RETURN 
ı3190 IFDI=2THENPRINTS1O, *speernurf" ELSEGOTOJZSO 
13200 PRINT*"WEITE=*j:PRINTUSING’NHN.HM*IGY 
13210 XX=(GY#1.2)#10 
13220 PRINT"PUNKTE? "5 :PRINTUSING"HANN.M"IXX 
‚3230 OD=0 
13240 FOROO=0T03000:NEXTOO:PMODE4, 1:SCREENI,1:PCLS:DI=3:RETURN 
13250 IFDI=OTHENPRINTS10, "hochsprung* 
13260 PRINT"HOEHE: "5: PRINTUSING"HM. MM" 5HH 
13270 HP=(HH#15/12))%*1000 
13280 PRINT"PUNKTE: *5HP 
13290 FORO0=0T05000:NEXTOO 
’ 
13300 REM GESAMT 
13310 CLS:PRINTS6?, *"gesamtpunktzahl” 
13320 PRINTS?1,USING’NHHRN. KH" IHP+ZZ+XX 
13330 PRINT: INPUT"NOCHMAL (J/N) ";D® 
ı3340 IFDS="N"THENCLS:END 
13350 IFDS="J"THENH=12:0F=0:X=0:FF=0:GW=0:6Y=0:HH=0:2=63:V=1:BE=1:AB=2:PCLS:W=8:D 
11=1:607070 
13360 CLS:PRINTS224, "KANN DIE SCHNELLIGKEIT IHRES COMPUTERS VERDOPPELT WERDEN 
>” 
13370 AS=INKEYS: IFAS=" J*THENPOKE6S495, 0: 60103400 
13380 IFA®="N*THEN3400 
13390 GOT03370 
13400 CLS 
13410 PRINT{PRINT 
13420 PRINT" mn un“ 
13430 PRINT"W nu 
13440 PRINT"# “nn 
13950 PRINT*H ann“ 
13460 PRINT"N nn“ 
‚3470 PRINT"H D nom“ 
13480 PRINT" ## non" 
15490 PRINT:PRINT*COPYRIGHT BEI STEFAN HINRICHS LINDLAUSTR.:23 
i TROISDORF 14* 
13500 FORJK=1T0S 
13510 FORKK=1T012:KS=STRSIKK)PLAY*OITISIXKEI *INEXTKK 
13820 FORHH=12TO1STEP-1:KS=STRE (HH) :PLAY"OSTLSIXKE " :NEXTHH 
13530 NEXTIK 
13540 RETURN 
U 
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Farbcode 


für alle Laser und VZ-200 


REM FARECODE —- 2- 
"G.BURCKHARDT (CD) 24.04.1984 AHNWENDERFROGRAHM 
ELS PRINT PRINT'TEZZXILNARTUONNKLKTLILNATMNNKELTTT" 
PRINTE438, "[ELLLILIFITOIGELLLZILIA:TOINKLTLLTT" 
FORX=2857270291525TEP32 
POKEX, 42 
POKEX+31,42 
NEXT 
FORY=8T032 
8 PÜKE23152+Y,32 
NEAT 
SOUND21,2;29,2519,2;18,5;0,2518,2517,2:16,2; 15,65 
PRINTBI9,"CC) 1934" 
PRINTB227, "AUTOR: GILBERT BURCKHARDT" 
FRINTB355, "VZ-/LASER-SOFT - 2- G.B 
FORW=1T02599 
NEXT 
ELS 
PRINTB3E," And NACH IEC<E12,E24)" PRINT" en 
PRINT" NUR FUER WIDERSTAENDE >=1 OHM" PRINT 
FORR=1T03 
PRINT" FRRBE RING" PR; : INPUTESCR DI IFESCR )=""THENLIO 
GITO1298 
NEXTR 
IFAS 33°=STHENASC 3 I=STREC LOPACTYIELSERRCH Je" " 
FORR=1TDZ :ASCRI=SSTRECHCR II: NEXT R:FRINT:PRINT" (BORN " ; 
FORR=1TD2:PRINTASCR ); :NEXT 
PRINTRIGHTSC AS( 33.RC339;" OHM" PRINT 
INPUT"FARBE RING 4 LTOLERANZI"STFS PRINT 
IF TF&="OHNE"ORTF&=""ORTFS="SILBER"ORTFS="GOLD"THEN3OB 
IF TF$="BRAUN"ORTFS="ROT"THEN4O9 
IF TF$="GRUEN" OR TF&$="BLAU"THENS599 
IFTFS="VIOLETT" OR TF$="GRAU" THENS3Q 
FRINT" FARBE GIBT ES FUER RING4 NICHT!":GOTO189 
FORS=1TO T 
TW=Y72 
Y=TU 
NEXT 
FRINT" NORA: +-"; Tl; "7" 
PRINT: INPUT" WEITER LJA=.JJ. "ES 
Busen LCLEAR:GOTD18 
IFTF$S="OHNE"ORTF4=""THEN T=1 
IFTF$="SILBER"THEN T=2 
IFTFS="GOLD"THEN T=3 
Y=49:G0T0238 
IFTF$="BRAUN"THENT=2 
IFTFS="ROT"THENT=1 
y=4:G0T0239 
IFTF&="GRUEN"THENT=1 
IFTFS="BLAU"THEN T=2 
Y=1:G0T0239 
IFTF$S="VIOLETT"THENT=1 
IFTFS="GRAU"THENT=2 
V=9.2:6010229 
8 RESTORE 
FORI=HTUIA:READFSC] ) 
IFESCR I<DFS&CTDANDI=1HOTHENGOTOLIO 
IFF$C I )>ESCRSTHENACRI=T: I=19 
a NEST 
GOTN138 
DATA"SCHWARZ" , "BRAUN" , "ROT" , "ORANGE" , "GELB" , "GRUEN" , "BLAU" 
DATA"YIDLETT" "GRAU" S"UEISS"," 
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Farbcode ist unser erstes Anwender- 
programm, daß wir für den Laser veröf- 
fentlichen. Es ist sehr nützlich für Bast- 
ler und Hobbyelektroniker, denn es er- 
spart die zeitraubende Sucherei nach 
Umrechnungstabellen zur Widerstands- 
berechnung. 


Sie geben einfach nur ein, was Sie auf 
dem elektronischen Bauteil sehen und 
der Computer gibt Ihnen den Wider- 
standswert in Ohm sowie die Toleranz 
in Prozent aus. 


Wenn Ihnen auch Ideen für solche 
nützlichen Anwendungen kommen, so 
schicken Sie uns doch einfach Ihr Pro- 
gramm und helfen so, aus dem Laser 
mehr zu machen als nur ein 
Spielcomputer. 


Programmaufbau: 

1-18: Vorspann 

100-130: Abfrage des jeweiligen 
Farbrings 

1000-1040: Wertigkeit der eingegebe- 
nen Farbe wird mit Hilfe der Laufvaria- 
blen I festgelegt. Für jeden Ring! 3 
9000+9010: Mögliche Farben derRinge. 
Wenn Farben nicht vorhanden, dann 
=10 (Zeile 1010) und der gleiche Ring 
wird nochmals abgefragt. 

140-170: Errechnen und Ausdrucken 
der Widerstandsgröße 

180-270: Farbe des Toleranzringes 
eingeben. 

300-550: Toleranz berechnen und 
ausgeben. 


Variablenliste: 

X,Y: Vgl. Koordinatensystem 

W: Laufvariable (Warteschleife) 

R: Ringnummer 

E$: Eingabe (Farbe) 

I: Indizes für Farben, Laufvariable 
FS(D: Die einzelnen Farben 

A(R): Hilfsvariable zu ES(R) 
A$(3): String aus A(3) 

TF$: Farbe des Toleranzringes 
TW: Toleranzwert 

V+T: Variablen zur Toleranzberech- 
nung 

S: Schleifenzähler 

I: Fallunterscheidung - weiter? 
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TURBO-Pascal mit 
neuen Features und 
altem Preisl!! 


TURBO-Pascal wurde Innerhalb eines 
halben Jahres weltweit bisher ca. 50000 
mal verkauft. Jetzt wurde die Version 2.0 
freigegeben. Sie enthält eine ganze 
Reihe wichtiger Erweiterungen. Trotz- 
dem Ist der Preis von DM 198,- (excl. 
MwSt.) der alte geblieben. 


Die wohl wichtigste Neuerung der neuen 
TURBO-Pascal Version ist die Möglichkeit, 
sehr große Programme in sogenannte 
Overlays aufzusplitten, die jewells 

bei Bedarf von der Diskette ge- 
laden werden, Die Hand- 

habung ist sehreinfach. 
Der Programmierer 
braucht sich nicht 

um den 












Speicherbe- 
dar! oder ab- 
solute Adressen 
kümmern. Beonders 
hervorzuheben ist die 
Möglichkeit, daB Overlays wie- 
derum eigene Overlays haben 
können. 


Die Verwaltung von dynamischen Variab- 
len ist durch die Implementierung der 
»DISPOSE«-Procedure wesentlich verein- 
facht worden. Diese Procedure, die eine 
gezielte Freigabe des Speicherplatzes 
von nicht mehr benötigten dynamischen 
Variablen ermöglicht, war unseres Wissen 
nach bisher fast ausschließlich auf größe- 
ren Rechneranlagen verfügbar. 


Der WordStar-ähnliche, im Preis inbe- 
griffene Editor ist um zusätzliche Befehle 
erweitert worden. Neben Befehlen zum 
Scrollen des Bildschirms wurde die Mög- 
lichkeit der Tastaturanpassung {z. B. Be- 
legung von Funktionstasten): stark ver 
bessert, 


Besitzer des IBM-PC und kompatibler 
Rechner können jetzt mit TURBO-Pascal 
die Grafik- und Sound-Eigenschaften Ihres 
Computers einfach und wirkungsvoll aus- 
nutzen, Eine ganze Reihe von Befehlen 
ermöglichen die Programmierung von ein- 
drucksvollen Grafiken, wobei sich Auf- 
lösung und Farbe vielfältig variieren lassen. 
Sensationell ist die Möglichkeit, den Bild- 
schirm im »Fenster« (Windows) aufzuteilen, 
die sich einzeln ansprechen lassen und 
die gleichzeitige Darstellung verschiede- 
ner Vorgänge ermöglichen. Der Befehl 
»SOUND« erlaubt ein direktes Ansprechen 
des Tongenerators im IBM-PC, wobei sich 
Tonhöhe und -länge programmieren lassen. 


: buch informiert ihn 


Version 2.0 im Austausch 

Auch wer TURBO-Pascal bereits gekauft 
hat, kann die Vorteile der neuen Version 
ausnutzen. Er muß lediglich die alte 
Original-Diskette mit dem Besteil-Coupon 
einschicken, um die neue Version zum 
halben Preis zubekommen. Gegen 
Nachnahme oder Vorausscheck 
wird ihm umgehend das 
jetzt noch leistungs- 
fähigere TURBO 
zugesendet. , 


Ein Zusatz 


zum Hand- 



















über alle Neuerungen. 
Voraussetzung für einen 
Austausch ist allerdings, daß 
uns der unterschriebene Software- 
Vertrag vorliegt. 


Jetzt mit 8087-Support 


Es gibt jetzt von TURBO-Pascal eine 
Version, die den schnellen 8087-Mathe- 
matik-Prozessor unterstützt Wenn Ihr 
Rechner über diesen Zusatz verfügt, 
können Sie mit TURBO-8087, das es für 
die Betriebssysteme CP/M 86 und MS- 
DOS/PC-DOS gibt, Programme mit Fließ- 
komma-Berechnungen um ein Vielfaches 
beschleunigen. Der Preis für diese Version 
beträgt DM 398,- (excl. MwSt.). 


TURBO-Pascal ist für alle wich- 
tigen _Microcomputer-Betriebs- 
systeme (CP/M 80, CP/M 86 und 
MS-DOS/PC-DOS) erhältlich, da- 
durch sind Programme portabel, 
TURBO-Pascal ist ein extrem 
schnelles und kompaktes Entwick- 
lungssystem mit Editor, das Pro- 
grammfehler direkt im Quelltext 
sucht. Das komplette System be- 
nötigt nur ca. 30 KByte auf der Dis- 
kette und kompiliert bis zu 100 mal 
schneller als vergleichbare Kon- 
kurrenzprodukte. 

TURBO-Pascal erzeugt optimier- 
ten Maschinencode (Z80 oder 
8088/8086) und Assembler-Rou- 
tinen können direkt im Source ein- 
gefügt werden. 

TURBO-Pascal verfügt über eine 
11-stellige Fließkomma-Arithmetik 
mit zahlreichen Zusatzfunktionen. 































Rückgaberecht 
bei versiegelter 
Diskette. 
Erhältlich in 
50 Diskettenformaten. 


A 
Bitte hier schneiden! Ri 
- 


DM 198,- +DM 27,72 MwSt 
DM 398,- + DM 55,72 MwSt. 


Ich bestelle hiermit: 
[J TURBO-Pascal 2,0 
U TURBO-8087 Pascal 


Im Austausch gegen Version 1,0 
(Alle Originaldiskutten müssen beigefügt werden; 
Nutzungsvortrag muß uns vorigen.) 


U] TURBO-Pascal2.0 DM 98,- +DM 13,72 Mwst. 
Ü] TURBO-8087 Pascal DM 298,- + DM 41,72 Mwst 


Angaben zum Rechner: 


Peg 





O8sBi U 168Bit CPU: (z. B. »Z 80%) 
Diskettengröße 

Osuzol D 8Zoll 

Betriebssystem: 

Ocpms0 U cprmss ODpos ÜPrc Dos 


Fabrikat Typ: ————m—m——————— 
Kontrollieren Sie bitte, ob die Angaben korrekt sind, 


DScheck liegt bei. [J] Nachnahme + DM 8,- NN-Gebühren 
14 Tage Rückgaberecht bei versiegeltar Diskette 
















Unterschrift 


Anfragen von Händlern 
und Distributoren 
willkommen! Fraunhoferstraße 13 
D-8000 München 5 


Tel. 089/2640 60 

















/rrack - Homeromputer präsentiert 
den Top-Programmierer des Monats 
November: 
Martin Kießwetter aus 2070 Ahrensburg. 
\dsentura - Unheimliche Begegnung 
der 3. Art" heißt das Listing. das unserer 
Jurv am besten gefiel und Martin den 
Sieg hrachte. 
Doch zunächst in Stichworten der Steck- 
hrief unseres Star-Programmierers: 
I6 Jahre ist er jung, Schüler der 11. 
Klasse eines Gymnasiums und seit etwa 
I 1/2 Jahren im Commodore- Team. 
Die ersten Sporen verdiente sich Martin 
Kießwetter mit einem VC-20. erhielt zu 
Weihnachten 1983 dann einen 64er, mit 
dem er eifrig Maschinensprache- und 
Pascal-Programme schreibt. 
Die Idee zu "Adventura” lag auf der 


Hand, da Martin’s große Leidenschaft 
die Adventures sind. 
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Top-Programm 
des Monats 


Obgleich das Programm den gleichen 
Titel hat wie der bekannte Spielberg- 
Film. so ist die Handlung doch völlig 
anders. Während der Filmheld erst 
Kontakte mit Außerirdischen knüpft. 
ist der Held des Programmes bereits 
von Venusiern aufdem Planeten gefan- 
gen worden und in einem Gefängnis- 
turm eingesperrt. 

Ihre Aufgabe ist es nun. die Rolle des 
Helden zu übernehmen und zu fliehen. 
Zuerst müssen Sie im 1. Teil des Pro- 
eramms den Ausgang aus dem 3- 
stöckigen Gefängnis finden. Sie’bewe- 
gen sich in dieser Adventure-Sequenz 
auf3 Ebenen. die durch die Farben gelb 
(1. Stock). rot (2. Stock) und grün (Erdge- 
schoß) gekennzeichnet sind. AufIhrem 
Weg in die Freiheit können Sie ver- 





Unheim liche‘ E ‚Begegnung 










schiedene Gegenstände finden und 
mitnehmen. Wechsel zwischen den 
Ebenen erfolgen durch Fahrstühle 
oder einen Transmitter. Damit es nicht 
so leicht wird. sind in-manchen Räu- 
men Fallen und Wachposten. Das Ad- 
venture benötiut deutschsprachige Ein- 
gaben und wird von tollen grafischen Ef- 
fekten begleiter Haben Sie den 
Ausgang des Turmes gefunden. so geht 
es in die zweite Spielphase. 

In dieser Spielsequenz müssen Sie mit 
Ihrer Raumfähre den Planeten verlas- 
sen.- den Asteroidengürtel passieren 
und die Erde erreichen. 

Im Gegensatz zum ersten Teil erfordert 
das Steuern der Raumfähre gute 
Reaktionen. da der Flug eine äußerst 
schnelle Angelegenheit ist, 
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DATAI24,2534, 8,138,246,258,254,124 
DATA 14,38, 8,102, 6, 6, 6, & 
DATAI2I,254, DB, 24, 46, 96,254,254 
DATA124,259, ©, 62, 62, 2,254,124 
DATAI32,132, B,216,254, 24, 24, 84 
DATN254,254, 98,252,254, 2,254,124 
DATAI2S,254, 0,252,2394,194,254,124 
DATA2S4,254, 8, 12, 24 48, 96,192 


DATAI24,254, D,124, 69,130,254,124 “ "TRBÄBY"WEITTE WARTEN 


a 11 SEK.) CHRELE): TIER "GOOCOS" 


DATAI2A,254, B,254,126,# 6,254, 124 7 REM 

FORT=8T073:REARDA:POKES?7728+T, ArPRINTMSTISINEXT 6 REM ALPHABETH 

REM @ REM 

REM DIVERSES 18 DATAIZE,129,189,161,1681,189,129,126 
‘ REM 18 DATA 2, 6, 8, 32, 5%,192,198,1983 


DATA nr © 
DATA 24, 24 
oATA 8, vd, 84, 54 
DATA a, 0,126,186, 8 
DATA 0. 8, 8, 8, 24 
DATA 24, 24, 8, 8, 8 
FORT=OTOI1S:RENDA:POKESTEDOB+T,ATNEXT 
FORT=8T023:READA:POKES7E3S+T ,ATNEXT 
FORT=B TO7T:READA:POKES7388 +7 ,A:NEKT 
PRINT"M"TIE 

REM FRAGEZEICHEN 
DATA1256,192,3,6,12,24,0,24 

REM 

REM KAESTCHEN WAAGRECHT 


16, 16.255, 16, 16, 16, 16 
16, IG, 16,255, 16, 16, 16 
16, 16, 16, 16,255, 16, 16 
15, 16, 16, 16, 16,255, 16 
16, 16, 16, 16, 16, 16,255 
16, 16, 16, 186, 16, 16, I6 
DATA 16,285, 18, 18, 16, 16. 16, 16 
DATA 16, 16,285, 16, 16, 16, 16, 16 
REM 
REM KAESTCHEN SENKRECHT 


DATA 16, 16, 16,255, I6, 16, 16, 16 
DnTA 32, 32, 32,235, 32, 32, 32, 32 
DATA 564, 64, 64,855, 54, 64, 64, 654 
OATAI2S,128,128,235,128,128,128,128 


1,253, 1, 1, 
2,2833, 2, 2, 
4,255, 4, % 
8,255, 8, 8, 8, & 


Data 1, 1, 
onTA 2, 2, 
DATA 4, 4, 
DATA 8, 8, 


FORT“BDTO13S:1READA POKES7848+T,A:PRINT"M"TISINEXT 


REM CURSOR 

DATAO ,2,0,0,0,0,255,255 

FORT=BTO? :RENON:POKESSEA4+T,AINERT 
REM 

REM SYMBOLE 

cATA 8,127, 64, 95, 87, 91, 83, 94 
DATA 94, 93, 31, 97, 35, 64,187, 9 
DATA 0,254, 2,250,234,218,188,.122 
DATAI22,186,218,234,250, 2,254, 0 
OnTA 8, 8, 0,233,254,178, 16, 
DATA 28, 62,119,235,.119, 62, 28, 0 
DATA 08,126,128,194,194,255,126, '68 
DATA 85,149,181,181,181,181,253,255 
DATA 24, 24, 24, 60, 126,255,255,126 
DATA 8,127. 63, 63, 36,112,224,224 
DATAh 0,255,255, 8, 8,:68, 8, © 


FORT=0T037:READN:POKES7384 + T,A:PRINT"BITISINEXT 
POKES3272 ‚24:1 POKESGS7E, 148: POKESS4B, 196 


GOSUB48e8 
REM 

REM SPRITES 
REM 
REM RAUMANZUG 


20 
25 
so 
35 
so 


DATA248B,252, 
DATATBE ‚254, 
DATA252.25%, 
DATA254 ,254, 
DATN2S9,254, 
DATAI24 ,25#, 
DNTA:SB,196, 


DATA SB, ©0, 


DATABS& ‚254, 
DRTAISB.2eA, 
DATAI92,192, 
DATAI20,198, 
DATAI3S,198, 
DATniEa.254, 
DATAES2; 254, 
DrTaI2a,258, 
DATA2SE,PS4, 
DETAL2G,2S4, 
DATA2S4 ,ES4, 
DRFA133,138, 
DATA198,198, 
DATA198, 198, 
DATn130,198, 
DATA130,188, 
DhTA2S4 ,254, 


FORT=OTD2 IS5:READATPOKES73944+T ,AtPRINT*B"TIS:NEXKT 


REM 


© REM ZAHLEN 


REM 


’ 


e,232,252, 4,252,242 
2,192,192,1232,254,124 
0,190,198 199,233,232 
©,B2#.224,128 ,259,254 
0,224 ,224,128,128,128 
0,158,130,13@,234,124 
©.234,2%4,198,192,198 
©, 24, 24, 24, 60, 58 
, .6, 6,198,252,120 
er er 138 
2,192,192,254,254 
8,254 ,214,198,198,138 
0,246 ‚,222,206,198,194 
0,198, 198, 198,254,124 
0,254 ‚252,192, 122,192 
0,199,219,206 ,284,124 
0,234 ‚282 ,240,218,204 
B,252,126, 2,254,282 
®, 16, 1i6, 16, 16, 16 
9,198,199,1998,254,124 
8.198, 82,108, 5E, 16 
©,198,219,214, 84, 40 
e, 36, SE,198,198,1308 
8, SE, 56, 16, 16, 16 
8,126, AB, 936,254 ,254 


DATAO,8,0,0,0,8,3,192,0,15,248,0,63,252,0,111,246,0,111,246,0,111,246,238 
DATAI11,246,238,111,248,198,111,246,198,15,246,198,15,240,0,14,112,8,14, 112 
DATA9S,14,112,248,14,113,248,14,113,248,14,113,248,14,112,0,5,8,0,0 


REM WACHE 


DATAB,3,0,0,7,128,0,7,128,0,.3,0,0,7,128,0,15,192,32,255,192,127,255,192 
DATAI2,127,132,7,19,192,9,15,192,0,7,128,8,15,128,0,31,128,0,57,128,0,241 
DATAI28,0,229,128,0,193,128,0,193,136,0,193,252,3,193,242,0 


REM TELEPORTER 


DATAD ‚8,0,09.255.0,23,199, 192 3,239,240,31,239,248,63,255,252,183,0,62, 112 
DATAO , 14,96,,2,6,64,2,2,64,2,2,32,124,4,16,68,8,9,124,16,4,68,32,2,68,64 
DATA2 ‚68,64,3,255,192,7,255,224,31 ,255,248,127,255,254 


FORT=OTO13B: READA:POKESISIEHT ,AINENT 
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VFr=33248:1POKESIIS2,6:POKES11S3,7:1POKEVF +33, 1 tPOKEVF +48,0 
468 POKES11S4,3:POKEVF+41. 1:POKEVF+A , LID:POKEVF+S, 130 

470 POKEYF,11O:POKEVF+1,130:POKEVF+Z,11B:POKEVF+3, 138 

E90 REM 








EG REM MASCHINEHPROGRAME ssd DATAIG2, 18,169, 2,160, 198,145,178 
sp2 REN: 553 DATA136 ,2088 ‚281, 24,16$,170,185, 46 
s33 REN SCRILLEN S6® DATA133,170,165,171,105, 8,133,171 







si0 DATAIG2, 18,173, 0,192,160, 18,145 65 DATA282 ‚208,231, 36 

sı5 OATA174, 138,209 ‚281, 24,165,174,105 808 FORT=491547049154 +79: READATPOKET ‚AtS=S+At NEXT 

520 OnTA 40,135, 174,168,175,1065, 0,133 581 IFSt >10794THENPR INT*FEHLER IN MASCH INENPROGRAMMEN* 
s25 DATAI73,202,208,230,23e, 0,ı92,173 610 POKEI74,121:1POKEI7S,196:1POKE49133,72:1POKEASIS2.64 
S38 DATA 0,192,281, 72,208, 5,169, 64 628 POKEI7E,128:PoKEiri,2is ; 

=33 DATAIsı, @,192,169,121,133,174,168 790 REM 













548 ONIA SG 132.178 06 . 701 REM VAR.DEKLIRATION 

343 REM 702 REM 

ERaUBEELETNEAERSEN 723 REM DATA PL<x,Y,2> 

Gate 704 DATAO,1,2,8,4,0,8,6.7,1,0,2,3,4,3,0,6,7,1,2,0,3,4,5.8,6,7 






FORZ =2T08STER- 11 FORY=-BTO2: FORK=DTOZ:READATPLIK,Y,ZI=AINEXTR:NEXTYINEXTZ 
KmitYalızwii22tO)="BBRUENTIZELHITTBELB *IZzE(2)e "ROT *ın“a2 

728 V.-5 

730 DATASAEURE ‚LASER ‚TELEPORTER ‚LAMPE ‚RAUMANZUG ‚SCHLUESSEL 

748 FORT=BTOSTREADMOS{TITMISCTI=MOSCT) NEXT 

744 DATA3,5,6,7,8,8 

745 FORT=BTOSTREADPOCTITNEXT 

980 PRINT" :POKE49289,7:G05UB2045 

310 ,5SYS49154:POKES3281, 11 

997 REM 

REM HAUPTPROGRAMM 



















PRINT*IRMMISIE SIND IM SEKTOR: *s28(2)5 PL(K,Y,2) 
1888 PRINTER" TAB (21)* "ıPO(2)=6 
1010 GOTO2ES® 

ı8ı2 GEi2)=0 x 
1815 ONDGOTO2408 ,2403,2418 ,2415,2420,2425,2438 ‚2435 ,2440 . 
1028 0-8: PRINT u TAB (21) AS 

1022 Fan» . 

1025 60102590 

1026 60102700 

1027? PRINT 'EREmee"Fs “ 
1030 INPUT EEE KOMANDO * /K= 

1048 PRINT"O"TAB(E)* , _":POKEVF+21,0 

1045 PRINT“ . 

1048 PRINTES . 

10850 G0TO2208 

1850 ONVGOSUB2E 18,220 ,2030 ‚2040 ,2043 

1078 MIS(2)="TELEPORTER*:VndtAse® x 

1080 G0TO1800 - 

2000 REM 

2081 REM UNTERROUTINEN 

zee2 REM 

20803 REM O U 

2010 POKE49157,0:POKE49183,0:POKE49186,0:POKE49189,721POKE49193,641POKE49195,0 

2811 POKE43152,641POKEA9182,238 

20812 FORT«-1T056:8Y548134:FORR=1TO20 1 NEXTRINEXTIRETURN 

2815 REM U O 

20208 POKE49157,0:P0OKE49163,8:FOKE49198 ,0:POKE49189,,64:1POKE49133,72:1POKE49133,8 . 

2021 POKE49152,71:POKE49182,206 N - 

2022 FORT=1T056:5Y549154:FORR=1TOZO:NEXTR!NEXTIRETURN. 

2025 REM LR 

2830 POKE43157,1:POKE49183, 1:POKEA91B6, 1:POKE49189,88:POKE49133, 72:1 POKE4S135, 1 

2831 POKE49153,721POKE49182,238 

2832 FORT=1T056:51543 1541 FORR=1TOZBNEKTR:NEXT:RETURN 

2035 REM RL 

2840 POKE4SIF7,1:POKE49183, 1: FOKEAS136, 1:POKE49183,71:POKE49133,79:POKE49135,1 

2041 POKE49153,78:1POKE49162,206 

2042 FORT«-1TISE:SYSA91S4 1 FORR=1TOZOINEHTR:NEXT 

20.13 RETURN 










































2844 REM EINFAERBEN 2150 IFX=1ANDY-OTHENAS=*TELEPORTER "10=PQ(2) 
2045 POKE170, 121tPOKEI71,216:SYS49296 : RETURN @1Si IFK=BANDY-OTHENAS=MIECZI:O=PO(3) 

2050 IFZ=-1THENE IOC 21352 IFK=IANDY- ITHENAS=MIS(A)LO=POLH) 

28609 IFZ=2THEN21S0 = 2153 IFR= 1ANDY=ZTHENAS= "FAHRSTUHL "t10=J 
2070 IFK=OANDY-OTHENAS="FAHRSTUHL "10-1 2189 IFK=ZANDY=ZTHENAE="KEIN SAUERSTOFF 
2871 IFX=1ANDY»BTHENAS=*WACHE *":0=2 2153 IFX=DANDY= 1ORK=OANDY=2ZTHENU=2 

2072 IFX=DANDY- ITHENASEMISCO)LORPOCE) s nee 

20873 IFX=1ANDY=-2THENAS="FALLGRUBE. *10=4 = 

2074 IFK=2ANDY«- LORHTZANDY=2DTHENDI=| 2201 REM KOMANDOAUSWERTUNG 

2075 IFH=2ANDY=ZTHENAS=MIECSI:O=PRLS) 2202 REM 

2280 50T01012 22065 0»PL(X,Y,Z)1Di=XK1Q2=Y:ı93"2 

2168 IFH=OANDY=-DORK=IANDY-ZTHENAS= *FAHRS ":0=f 2EIO IFKS="N"ANDY>BTHENY=Y- 11V» 11G0T02388 
21085 IFX=1ANDY=- 1 THENAS=*"START . e2il IFKs="OrANDK<CZTHENX=K+1:V=3:G0T02308 
2110 IFX=2ANDY-BOTHENAS=MIS(I)TO=POCL) Belle IFKE=*SANDY<2THENY-Y+11V=-2:G0T02388 
2128 G0T01B12 . 2213 IFKS="U"ANDK>OTHENX=X-TiV"41G0T02388 
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2220 IFKS="H"ANDZ «DANDG=ITHENZ=Z +11 V="5:POKE492093,71G0SUB2845:1G0 023008 
e2eı IFKE=*HtANDZ= TANDO=STHENZ "2 +11 V=S: POKE49209, 108:G0S5UB2043:60T02300 


2222 IFKS="R"ANDZ=ZANDO=BTHENZ=2-1:V=S:POKE49209,7:1G60SUB2843:G0T02300 
2223 IFKS="R"ANDZ=LANDO=ITHENZ #2 -1:V-S:POKE49203,3:60SUB2045:G0T02308 
2283 VaS 

2300 IFPL(X,Y,2)=BOTHENK=Q 1: Y"Q2i2=03:V=5 

2310 IFLEFTSCKE,4)="NIMM*THEN232S 

2312 IFLEFTECKE,AI="LISTTUENZISO 

2213 IFLEFTS(CKS,7)= "BENUTZE "THEN2365 = 


2320 S0T91860 = 
2225 FORT=OTOS » 
2326 IFKRWLEFTECKE,SIHMORCTITHENNISCTI=" "IPOACTI=B:IGECTI=1 


2327 NEXT:1SYS49154:G0T01068 
2330 FORT=OTOS 
22493 REM LIST 

2330 PRINT" Eaukmspiie* 
23852 FORT=8T0S 
2334 IFGECTI=ITHENPRINTTAB(BIIMOR(T) 

2336 EXT 

2258 FORT=1TOSOB:NEKXTEPR INT Ta" : FÜORT=OTOS:PRINTTAB(24)* "INEXT 
2360 GOTOL1OSO 

2365 IFZ=2ANDX=OANDY=1ORZ =3ANDK=BANDY=2THEN2988 

2358 IFKS=LEFTECKE,B)HMORCRIANDZ"2ANDK= IANDY=BTHENGOTOS008 

2375 COTO19068 

2397 REM 

2338 REM SYMEODLE ZEICHNEN 

2399 REM 

24088 GOSUB2452 

2401 PRINTTAB(18)*"L.":PRINTTAB( LO) "e@* 

2482 60T01928 

2405 POKEVF+2I,2 

2486 60701028 

2418 GOSUB2499 . 

2411 PRINTTABCIBY* ":PRINTTAB(1B)" @ "ıPRINTTAB{IO)* "1G0T01828 
2415 605982439 

2416 FORT=1TO4:PRINTTAB(10>" *:NEKT:GOTOI028 

2428 G0SUB2499 

2421 PRINTTABStIO)* M*:G0OTOIO20 

2428 POKEVF+21,4 

2426 GOTO1E28 

2430 GOSUB2499 

2431 PRINTTABT I8)*X*1PRINTTAB(10)"0":GOTO1020 

2499 POKEVF+2I.1 

2436 60TOJe20 

‚2440 GOSUB2433 

2441 PRINTTAB(18)*| „*:GOTO1026 

2499 PRINT * inmisbınisslaini* =: RETURN 

2588 REM 

2S5el REM WELCHE RICHTUNG 

2582 REM 

250% PR INT " Eike" TA (23) "RICHTUNG: "IPRINT"MTABC2SI" D* 
2810 IFYL2ANOPLCH,Y+1,2)C>ATHENPRINTTAB (26) "BSD 

2=20 IFX<2ZANDPLeK+HI,Y,ZIC>OTHENPRINTTAB(27) "BRD" 

2522 IFY=:STHEN2S2= 

2524 IFYIBANDPLIK,Y-I,ZIS IOTHENPRINTTAB (25) "END" 

2525 IFK=0THEN2S3O 

2426 IFKIOANDPLCH-1,Y,2IC)OTHENPRINTTAB (28) "BUOD“ 

24530 IFZ=BANDOPL(CH,Y,2)=10RZ=1ANDPL(K,Y,23=6THENPRINTTAB (25) "BHO" 

2335 I1F2=2ANDPL(X,Y,29=60RZ=IANDPL(X,Y,ZI= 1 THENPRINTTAB (38) "BRD" 

2530 SOTC1B26 

2798 REM 

2781 REM REAKTIONEN 

2702 REM 

2718 IFGE(@)» I THENLE="DIE SAEURE IST AUSGELAUFEN UND HAT SIE VERAETZT.*:G0T05808 
2720 IFZmDANDK=IANDY=-BTHENLE="SIE SIND IN DIE FALLGRUBE GAFALLEN*:GOTOSBOS 
PT2ES IFZ=DANDK= IANDY=BTHENLS= "DIE WACHE HAT SIE ELIMINIERT" :GOTDS088 
2rT40 IFZ=BANDN «ZANDY= IANDGE (II "OTHENGOTO2808 

2720 IF2Z=2ANOK=2ANDY=ZANDGE (4) =OTHENLE= "SIE SIND ERSTICKT":GOTOSBB8 
2760 IFGECS)-ITHENPL(B,1,29=3:PL(0,2,2)=3 

2770 1FZ=2ANOH »OANDY= 1ORZ=2ANDK=BANDY-ZTHENAS= "VERSCHLOSSENES TOR* 

2780 IFZ=ZANOK=ORNDY=20ORZ =2ANDK=ONNDY=SITHENFS="SIE STEHEN VOR EINEM TOR“ 
2799 G0TO1B27 

28930 REM DUNKEL WERDEN 

202° PRINT US WIRD DUNKEL" 

2810 FOKES3281,8 

z@li POKE49203,15:G05UB2045 

2812 FORT=ITO49B8:NEKT 

2213 POKES9209, 12:605UB2045 

2814 FORT=1TOAOB:NEXT 

2815 POKE49289, 1 1tFORT=1TO488: NEXT 

Bal6 POKE49283 ,9:G0SUB284S:FORT=1TO488 :NERTIPRINT"I*" 

2817 L£""SIE SIND GESTUERTZT UND HABEN SICH DAS GENICK GEBROCHEN" 

2828 GOTOSO8O 

2920 IFKE-LEFTEIKF,BIHMOSTSIANDGE (SI=ITHENZ231O 
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S0TO1068 
PRINT ers TOR ZUR FREIHEIT OEFFNET SICH" 
cbTosene | 

REM TELEPORTER BEAMT 

PRINT" TELEPORTER BENMT SIE !!* 



























































"=INTCRNOCIIEZ) 
VEANTERED EIS EET 4023 PRINT" MEBBEGRUESSUNGSGRUPPE. * 
I Re se24 PRINT"MEDIE GESAMTE GRUPPE" 
ES SEETTERSEEE 3225 PRINTMEBUIRD JEDOCH GEWALT- 
INTROTIEFORESEEGETE Je26 PRINT-EEAM ENTFUEHRT. R 
IFZSITIENEOKEIGEER 7 4827 PRINTIESIE ERWACHEN. IN DER 
IFZ=ETHENPOKE49203, 10 deze PRINT REFREMOHRTIGEN WELT 
ee ’ 4028 PRINT-MBEDER AUSSER IRDISCHEN. ” 
Nana & 4038 PRINT" PRESS ANY KEY- 
4821 POKE198,0:WA1T198,1 
coTo1008 . . 
Me 4032 PRINT-MITBCFEHLE:- 
KEiTAKARGEe IT \ S033 PRINTER... . NORD“ 
Ko 0.8034 PRINT... OST" 
£ 2235 PRINTTEEBSS. . . . .SUED* 
PRINT® :POKES22E1 ‚BO: POKES3288,0 & 
u magee 2 re 4036 PRINTTIEERM. ... LEST" 
ee > 4337 PRINTMIEHE. .... HOCH" 
n 4030 PRINTIMERM. .. . . RUNTER” 
PRINT“ —BUNHE IM IcHE — 
NT = 4025 PRINTIEIBENUTZE iM... * 
2 ENT 2 4040 PRINTIRENIMM 3... * 
EAN = s - 4541 PRINT’MEB.1STM....WAS MAN BEI SICH HAT* 
x 3 4042 PRINT EEEEIGPRESS ANY KEY* 
PRINT — DER ARTE —— 
Sn z 2043 POKEISG,BEWAITISB, ı 
: 2 4044 PRINT" RETURN 
PRINT so02 REM 
PRINT "Kaas @ 1984 SUNNT SOFT* 
PRINT“ LRITTEN BY MARTIN KIESSWETTER* a Bier SPIELENDE NEGATIV 
PRINT. 2 2 PRESS ANY KEY* SEHR RRINTE NEE 
‚o: . 502° PRINT MRBPRES . 
PRINT"AMEINIE ERDE HAT ERSTMLS- SOSLBETRE FREE SS Ara 
PRINTIIBMKONTAKT ZU AUSSER -* 5035 POKES32B1 ‚S:POKESI2B0,, 13: POKEVF+21,D 
PRINT"ERIRDISCHEN WESEN. Bone heise et 
PRINT"MEIEIE SIND LEITER DER" EUNEEREREENE 















IFIS=* JATTHENPOKESS, 169:POKEE4,, 1:POKEBS ‚,ZIE:POKESE ‚EB: POKES2230 ‚8:60T0425 
IFIS=*NEIN"THENPRINT EEIBIDRÜUECKE RUNSTOP:RESTORE "!POKEGS4B ‚„atEND 

GoToso4o 

REM GRAB PRINT’IMBEINEM RAUMSCHIFF ZUR * 
RCM SPIELENDE POSITIV E22B PRINTWMERDE ZURUECKKEHREN ,* 
REM e222 PRINTIEBBBSIND SIE BEREIT 7" 
FOKES3281,08:POKESI2EO,0:PRINT* I" €024 PRINT MRBBPRESS SFACE* 
PRINT'IBBBIE HÄBEN ES GESCHAFFT ,* EBZE PRINT u TAB<20) "ER... «LINKS“ 
PRINTIEBMAUS DER AUSSERIRDISCHEN * 6826 PRINT’ TAECERI*EP... .RECHTS* 
PRINTIREMELT ZU FLIEHEN „* 5058 GETAS: IFASC)" "THENSESE 
PRINTEBBEEIE MUESSEN NUN NOCH MIT” 






IFGE(S)»BTHENLSE="IBIE HABEN KEINEN RAUMANZUG,SIE SIND ER- STICKT*:GOTOS888 
IFGE(ID="ETHENLS= "KEIN LASER UM DAS SCHLOSS AUFZUSCHIESSEN" :GOTOSE08 
PRINT" u e FLIEGEN DURCH DEN ZEITTUNNEL I* 

REM RAUMSCHIFF 
DATAB,8,8,0,8,0,08,8,6,1,239,126,7,288,224,15,85,248,31,178,248,,63,238 
DATAR2S2,69 ,25° ‚252,100, 146,78,100, 146, 78,63,255,232,13,293,248, 11,255, ,2086 
DATAI6,0,8,112,0,14,0,0,0,0,0,8,0,8,0,8,0,0,0,06,8,8 





























FORT=-DTOE3:READA:POKE45SIG HT ,ATNEXT 

= 1SS:POKEVF ,HiPOKEVF +1,80: POKEVF+39,3:PRINT*I* :POKEVF+21,0 

2» 15:POKEVF+21,1:Y=14: T1#="08890080* 

REM 62S3 POKEVF ‚2SSt:POKEVF+1 ‚SB: PDKEVF+39,7 
REM TUNNEL 6260 PRINT EEE IE SIND GERETTET ıı* 
REM 

PRINT EEE. - = = > = 4 424 0220 anne r nn ® 
IFTI5="000830 " THENS2Se 

1IFPEEK IST )= 12 THENK=K-3 5265 PRINTER IE AUTOMATISCHE * 
IFPEEK (197) =SSTHENA"X +2 E270 PRINT"IMMBTEUERUNG DES RAUM-* 
POKEVF ,‚» 6275 PRINTEMISCHIFFES BRINGT SIE* 
IFPEEK (VF +31) = 1 THENGZOS 5280 PRINT"IBBEURUECK ZUR ERDE," 
Z=2+ INTSRNO(13#3)-1 8258: PRINT * Eieieieispeinnei 1" 
IFZ<CITHENZ=I 6282 FRINTTAB<26)* vor" 
IF2 S2GTHENZ=2& £E283 PRINTTAB(26)>* eo..." 
PRINT’D"TAB«Z)* e 5 6284 PRINTTAB(25)* “one hase” 
IFPEEK (1IS7) = 12 THENN EX -a 6285 PRINTTAB(26>* rer." 
IFPEEK (197) »55STHENA=N+4 6286 FRINTTHB(2E)* Orene " BrIr: > 1 
POKEUF ;* 6287 PRINTTAB(AGEI" sercchle.....Q* 
IFPEEK (VF+313=1 THENS2E8 8288 PRINTTAB(ZEI" vercchhree.. it 
PÜKEVF+39,Y 6289 PRINTTABIBEI" „2... +: Q* 
Yarazıyal-Yıyayı7 6238 PRINTTABLBEI" „...nn.. ce. 
Yaysi j GaBt PRINTTABCAEI "oa 
GOTOsIıo8 el BE932 °PRINTTABCEEI Feen 
LE="SIE SIND ABGETUERZT HI" 6283 FORT=SOTO2SBL:POKEVF+1,T 
GOToSseae 5294 FORR= I TO3SDO:INEKTRINENT 
FORT=-1TO1S:PRINT"M’:INEXT 6235 FORT-1TOIBDO:NEXTIGOTOSBSS 
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Wir suchen 


Programme jeder Art (Anwender-, Action-, 
Adventureprogramme und andere) h 

für sämtliche Heimcomputer. 

Wenn auch Sie als Software-Autor für unsere 
Zeitschriften tätig werden wollen (außer Home- 

computer bringen wir noch ” GPU’ — monatlich ED 
und ”Gompute mit Commodore” wöchentlich ** 
heraus), dann schicken Sie uns doch einfach 
Ihre Programme zu und Sie können sicher sein, 
daß auch dieses (nach Überprüfung) schon in 
einem unserer nächsten Hefte erscheinen wird. 
Als Gegenleistung erhalten Sie von uns ein 
Honorar — wofür es sich lohnt Programme zu 
schreiben. 


Was brauchen wir von Ihnen: R 
1) Ausführliche Spielbeschreibung (scheuen 
Sie sich nicht, ein wenig Reklame für Ihr ©) 
Produkt zu machen). A 
2) Variablen-Liste und Programmaufbau- ws 
Tabelle | S au, 
3) Komplettes Listing, ausgedruckt oder in ni: / 
Form von Bildschirmfotos. a“ aT% 
4) Datenträger (Tonband-Kassette oder , ( C_, ) 9 
Diskette). | 3 wei Ä 


wu 





BIETE AN SOFTWARE 


TI-99/4k: Bundesüga und andere 
TI und Exr-Basle-Programme zur ver- 
kaufen. - Info gegen Rückumschlag. 

B. Knedel, Tulpengasse 16, 
3171 Weyhausen. @05362/71 137. 


6-84 + V6-20: Über 2000 Programme 
aus aller Welt! Günstige Preise 
Sonderang. WIZARD + 9 PRG’s 20,- DM, 
ZAXXON + 9 PRGs 20;- DM-Schein (auf 
Disk 1. VC-64) neu Video-Flimet 
INFO Nr. 1,50 DM: PROFISOFT, PosiLK 
Nr. 062747 A, 4650 Gelsenkirchen 1 








% % % HalloVe-Blser + % 
%* Hier gibt's die aktuellesto * 
%* Soltware, Auswahl aus über 2500 #* 
%  Progr. Viele Neuzugänge aus USA #* 
%* und GB. Info gegen 1,40 in Brlm 
% Uber50 seitige Progammaus 
%* wahl, Udo Göbel, Frohnhauser 471 %* 
%* 4300 Essen 1 @0201/740413 %* 
hr A «« 





CBM 84: Große Auswahl an super- 
günstigen Spitzenprogrammen 
{nicht nur ZAXXONN 
Liste anfordern bei: U.K. + U.W. 
Postfach 1231, 4803 Steinhagen 


Denkspiele und Anwenderprogramme 
für ZX-SPECTAUM. Gratisinfo von 
Friedrich Neuper, 8473 Pfreimd 


SUPENSOFTWARE FÜR Tr-99/4A1l 
ZB.: Spionage (TI) 8,- DM, Car-Driver (Ext) 
6,- DMI Yon Basic bis Assembler! Bis 
zu 60% Rabatt! Liste g. Freiumsch. 
bei S. Verhaaren, Ripshorster 309, 
4300 Essen 11. Ex lohat alchl! 














aarrrrcrc rc A HH Ha h 
Commodore 64 

WordPro-+3 (Textprogramm) 

mit disch Handbuch DM 298,-- 

Computerware GmbH, Posti: 16724 

Wilh-Leuschner-Str. 34 

6000 Frankfurt 1, Tel069/236713 

Akrkhkhchrccc AH HH 








: 2300 Kiel 


Rathausstraße 4, 2300 Kiel 1 
Telefon (0431) 963 76 










A& C Vertrieb 
Berlin 44, Emser Str. 18 
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1000 Berlin 


Genie 16 MTX-512 


os 
und was der Mensch sonst BRAUCHT Bi 
= 


LEINANZEIGE 


..0.0.0.0.0 0.25 5 2 22. 


Soft & Hardware für CBM Rechner 
Olympia Typenradschr. 1198,-- 
Doppellauf Floppy 2898,-- 
Parallelintert.1,1541 185, 
32 K RAM Karte Schaltb. 179,-- 
Akustik-Koppler AB. 498,-- 
Teleterm mit Schnittst. 198,-- 
Toolkit 64 3,- 

Weitere Soft und Hardware In 
unserem Katalog. Anfordern bei 
Flesch Elektronik 
Lippspringerstr. 14 
4650 Gelsenkirchen 
@0209/395497 
Händleranfragen erwünscht 


Yhkıhkhıkhikahaah 





% Apple Ile % Stets neueste Software 
z.B. Moon Patrol, Backup Ill, Burger- 
time usw. Liste gratis bei Stylingsoft, 

Postfach 1250, 6944 Hemsbach 


COMMODORE 84 TOPSPIELE 
PREISGÜNSTIG ABZUGEBENMIN 
=06479/647 nach 17 Uhr 








Lernprogramme für V6-84+TI 
(2.8, Mathematik, Elektronik, BIO) 
PAEDCO, Postfach 2021, 4057 Brüggen 2 





% LOAD ZX-B1 % lädt jedes ZX-81-Prog. 
mit Variablen in jeden SPECTRUM. 
Die meisten Basio-Programme sind 

sofort lauffähig. Info anfordern 

oder sofert bestellen: DM 39,- 
Michael Naujoks, Rottmannsir. 40, 
6900 Heidelberg, @06221/46885 


FÜR COMMODORE SPEZIALISTEN 

COPIADOR zum Kopieren von Pro- 

grammen direkt von Kassette zu 

Kassette. DM 79,- 
LEISTUNGSSCHALTER FÜR USER-PORT 

4 Kanal Schalter mit Prog. DM 99,- 
8 Kanal Schalter mit Prog. DM 158,- 
Dito aber zus. NF Eingang DM 168,- 

ernst-electronic, 4803 Steinhagen, 

Ströher Str. 26, @09209/4481 








APPLE 
ATARI 
BASIS 
Commadare 
DAI 

EACA 
OSBORNE 
SHARP 
TANOY 


Blete an Hardware 





Appia Comp 48K 998,- Flopoy 5,25” 
Slimeline 580,-, Controler 165,- 
Monitore 20 MHz 12” Gelb 398,- 
INFO kostenlos, Nolte-Bürotechnik, 
2000 Hamburg 61; Stavenhagenstraße 3, 
=040/588838 Tag + Nacht 


Verkaufe THOB/AA TOP-Zustandilt 
Mit großem Zubehör ZA. Assembler. 
Arndt Kemper, Helmstraße 15, 43 Essen, 
@0201/699792 ab 18.00 Uhrllt 


Verk. TI-BB/4A + Ext Basic + Recorder + 
Rec.-Kabel + ca. 40 Programme + 
Joystick + Adapter +4 Module + . 
Computer- Magazine, VB 650,- DM 
=0208/434739 








Verk. 1 Mon. alten ZX-81 mit Netzteil und 
allen Kabein + 16K + 2 Bücher + 
3 Soltwarekassetten mit insg, 7 tollen Spie- 
len zB. Krazy Kong, Hopper, VB 300,- DM 
=2072324/567% 


THO9/AA + Ext-Basic + Spielmodude + 
Recorder + div, Bücher + 
Joystick VB 850,- DM 
Frank Behr, Fuhrkamp 2, 4018 Langenfald 


Verkaufe THO9/4A + Ext-Basic + Rec.- 
Kabel + Bücher + Joystick und jede 
Menge Spielmodule 78 4.000,- 08 
Angebote an Emanwel Fürnschuss, 
Hauptplatz 55, 8510 Staitz 
Österreich 


ELEKTRONIK BAUTEILELISTE mit SUPER 
PREISEN || Gegen -,80 DM Rückporto 
Commadors C-64 Teilzpr. mon. 77,- DM 
Commoders Exscuthr 64 Tetzpr.man249,-DM 
Näheres bei: Elektronik Versand 
Haselgraben 17, 7917 Vöhringen 


#r CBM-04 HARDWARE RIESENAUSWAHL & 
# Ressttarier + OLD;Sterenssund * 
%* 50-Zeichen, Contronics, Copyrom x* 
%* BReserderinterlace: Modems + 
% BRATISINFO ANFORDERNI Spronger & 
%* Bresseriste. 18, 4300 Essen] %* 








3000 Hannover 


6630 Saarlouis 


9 
Minnnger 
8500 Nürnberg . 


APPLE SHAnP EPSON CENTAOMIGS FEITROM 
IRS imerlsce SINCE AM SON TWARTLASTELLUNG- 
Gisitzenmotste 89. 8500 Mueriverg 1, Tel (09 11) 677083 


4000 Düsseldorf 


FÜR KL 
DATA BECKER 


Merowingersit 30 4000 Dusseidart Tel 0211:.310010 








VERSCHIEDENES 













Computer Reparaturen Apple + 6-84 
Russter & Fichte, 4300 Essen, 
=0201/535843 ab 17.00 Uhr 








VC-B4 Evil. noch kursierende Listen 
werden hiermit für ungültig 
erklärt. Es findet kein Tausch 
mehr statt. Ein Verkauf war nicht 
beabsichtigt 
W. Eckert, Birkenstr.3, 8901 Königsbrunn 








HÜBSCHE JUNGE DAMEN aus 

nah u. fern suchen Briefwechse b 
Freizeitgestaltung, Urlaub, Hei 7 
rat etc. Folsprespekt kastenios' 

D. Rothe, 1 Berlin, Postfach 270/U 




































SUCHE SOFTWARE 





Suche Software für LASER 210 
(mit Speichererweiterung 16K). 
Angebote an: Holger Plath, 
Rathausmarkt 2d, 2406 Stockelsdort 


We are currentiy loaklag for original 
dabugped games for any machine, to 
market in the U.K. If you have any pra- 
grams, that fit those criteria, call us on 
010 44 532 450879, or write, for + 

furthar details, DARKSTAR 
92, Sovereign Street, 
Leeds LSI, 4BJ, England 


TAUSCH 


Tausche Videorecorder 
Soay SLE-5 mA Kassetien gegen W6-84 
mit Floppy-Disk @02232/12492 


6-84 Spiele Tausch Disk oder Tape 
Chiffre-Nr. HC101084 


Tausche TH@9/AA Ext Basic gegen 
6-84, 206127/2881 





6630 Saarlouis, 
Lothringerstraße 9 






mn 
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SONY steigt in den HOME- COMPUTER-MARKT 
ein! mit dm HOME-COMPUTER HB-75P 


HIT BIT” 


Sony’s "HIT BIT” soll einer breiteren Bevölkerungsschicht zugänglich gemacht werden. 
Er arbeitet daher - wie die meisten HOME-COMPUTER - mit der schnell erlernbaren 
Basic-Programmiersprache; jedoch verfügt das MSX-Basic über einen sehr umfan- 
greichen und komfortablen Befehlsvorrat. 


Das Keyboard wird wie bei einer 
Schreib maschine bedient. Der Cursor 
läßt sich über ein einfaches Steuerfeld 
schnell und einfach dirigieren. Fünf 
Sondertasten stehen für insgesamt 
zehn frei programmierbare Funktio- 
nen wie 2.B. "Print, run, go to. lisg zur 
Verfügung. Die Zentraleinheit kann 
über den HF-Anschlußoderübereinen 
6-poligen DIN AV-Ausgang an nor- 
male Fernseher sowie über.den RGB- 
Ausgang an Monitore mit Scart- 
Buchse ! ange- 
schlossen werden. 

Um den Einstieg zu erleichtern, hat 
Sony seinem "HIT BIT” bereits ein spe- 
zielles Anwenderprogramm eingebaut. 
Ohne zusätzliche Software können bei- 
spielsweise kleinere Ädressdateien, Te- 
lefonlisten und Terminpläne aufge- 
baut werden. Zwei "Slots" nehmen die 
sogenannten "Cartridges” auf. In- 
nerhalb der Cartridge befindet sich 
spezielle Software oder ein RAM- 


Speicher zur Aufnahme von Daten. ' 


Zwei Joystick-Eingänge ermöglichen 
den Anschluß der Steuerknüppel. 

Die Speicherkapazität (ROM) der 
Zentraleinheit liegt bei 32 K-Bytes 
(MSX-Basic) und 16 K-Bytes für das 
fest integrierte Anwenderprogramm 
(persönliche Datenbank). Die Kapa- 
zität des Arbeitsspeichers (RAM) be- 


trägt 64 K-Bytes, die des Bildspeichers 


16 K-Bytes. Maximal können 40 
Zeichen je Zeile ‘über insgesamt 24 
Zeichen über Groß- und Kleinschrift 
dargestellt werden. Für die Grafikdar- 
stellung beträgt die Auflösung 256 x 192 
Bildpunkte, 16 verschiedene Farben 
können genutztwerden. Weiterhinsind 
32 Sprite-Ebenen programmierbar. 

Mit einem eingebauten Synthesizer 
können gleichzeitig drei Töne über 8 
Oktaven plus Geräuscheffekte erzeugt 


werden. Eine 8-polige DIN-Buchse ' 
dient dem Anschluß eines Datacorders ° 
zur Datenspeicherung und -sicherung. 2 


Natürlich ist auch der Ausdruck von 
Grafiken und Texten möglich. Über 
eine. 14-polige Buchse kann ein 
Vierfarb-Plotter-Printer (schwarz, 


blau, grün, rot) angeschlossen werden. 


der sowohl auf Einzelblätter (DIN A4 
und kleiner) als auch auf’ Endlospapier 
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bis zu 11,4 cm Breite ausdrucken 
kann. 


3,5 Zoll Floppy Disc 


Für Anwender die ihren Homecom- 
puter professioneller nutzen wollen. 
wird ein 3,5, Zoll Floppy Disc- 
Laufwerk verfügbar sein. Das HBD-50 
hat unformatiert eine Speicherkapa- 
zität von 500 K-Bytesundein nutzbares 
Speichervolumen von 360 K-Bytes. Be- 
reits heute hat sich der 3,5 Zoll Micro 
Floppy, eine Entwicklung von Sony, als 
Standard unterhalb der 5 1/4 Zoll- 
Disketten durchgesetzt. Ihre besonde- 
ren Vorzüge sind diekompakte Abmes- 
sung, ihre hohe Speicherkapazität. 
schnelle Zugriffszeit, hohe Zuverläs- 
sigkeit und guter Schutz gegen äußere 
Einflüsse. Computerhersteller wie Ap- 
ple (MacIntosh, Lisa) und Hewlett 
Packard haben sich bereits für den 3,5 
Zoll Floppy-Standard bei einigen ihrer 
Personalcomputer entschieden. 


MSX-Software 


Rechtzeitig zum Marktstart will Sony 
unter eigenem Namen ca. 25 MSX- 
Software-Programme anbieten. Dabes 
wird man sich vor allem auf Pro 
gramme mit Lerneffekt (Sprachen. 
praktischer Anwendung (Lohnsteuer- 
programme, Ein-/Ausgaben-Rech- 
nung) sowie intelligente Spiele kon- 
zentrieren. Da auch andere MSX- 
Partner Software bereitstellen und 
auch freie Software-Häuser bereits die 
Produktion von Software angekündigt 
haben, istbereitszum Einführungszeit- 
punkt mit einem ausreichenden Ange- 
bot zu rechnen. 

Gleichzeitig wird’ es auch für die pen- 
phere Hardware weitere Entwicklun- 
gen geben, wie Interfaces, Akku- 
stikkoppler etc., die dem Homecom- 
puter einen noch größeren Einsatz 
bereich ermöglichen. 





HoMECcoMPUTER 73 








Unser Softwareversand bietet Ih- 
nen zu wirklich einmalig günstigen 
Preisen jeden Monat die neuesten 
Programme (zu den bereits in frü- 
heren Ausgaben veröffentlichten), 
auf Kassette bzw. Diskette an. 
Wenn Sie die hier aufgeführten 
Bedingungen beachten, können 
auch Sie von unserem Angebot 
Gebrauch machen. 


Bestellungen Inland: 


Gegen Einsendung eines 
Schecks oder Vorauszahlungauf 
unser Konto bei der Kreisspar- 
kasse Eschwege, 

Bankleitzahl 522 500 30 
Kto.-Nr. 45 22 934 

senden wir Ibnen die gewünsch- 
ten Programme schnellstmög- 
lich zu. Geben Sie bitte unbe- 
dingt die genaue Bezeichnung 
der Kassette (z.B. CPU 1/84 TI- 
99/4A) und des Computers an, 


Bestellungen Ausland: 
Nur Vorauskasse, Schein 
(Kassette 10.- DM. Diskette 20.- 


DM). Keine Schecks.oder Über: 
weisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kon- 
to kann es bis zu 2 Wochen 


An Homecomputer 
Fuldaer Straße 6 
Postiach 629 
3440 Eschwege 


kaufsangebote, Kauf- 


tausch usw. 


ge 10,- DM. 


nen). 
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Preise für „Kleinanzeigen“: 

Private Gelegenheitsanzeige 
je Druckzeile 5,— DM inkl. 
MwSt. Chiffregebühr je Anzei- 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 11,- DM inkl. MwSt. 
(dürfen nicht unter Chiffre erschei- 


dauern. biswirIhre Bestellungin 
Händen haben. 1 

Oft passiert es. daß aufder Über- 
weisungsdurchschrift weder Na- 
me. noch Ort noch Art der Be- 
stellung zu erkennen sind. 


Schreiben Sie uns! (Anrufe 
kosten viel Geld und bringen. 
weil dann Schriftvergleiche nicht 
möglich sind. kein Ergebnis)!. 


Wenn &s bei uns besonders hek- 
tisch zugeht. dann kann es schon 
mal passieren. daßesmitderLie- 
ferung etwas länger dauert. Ver- 
gessen Sie bitte nicht: Der Kas- 
settenservice ist ein zusätzlicher 
Service von uns. der Ihnen. dem 
Leser. Tipparbeiten ersparen 

soll (Sie kennen den Versuch 
einer anderen Zeitschrift. dieses 
per Lichtgriffel zu ermöglichen). 
Wir tun unser möglichstes. Aber 
Pannen sind nie ausgeschlossen. 
Bitte haben Sie in solchen Fäl- 
len Verständnis. 


Name und Adresse 











aus HC 10/84 


V6-20 
Atlantis 
Olympiad 


2x-81 


Fliegenfänger 
Hausrat 


Commodore 64 


"Lauf 64 


Imbiß 


aus HC 11/84 


V6-20 
Die Suche des FBI 


2X-81 
Assembler-Disassembler 
Space Fire 


2X Spectrum 
Zeichengenerator 
Springer-Spiel 
Superradio 


Commodore 64 
Umheimliche Begegnung 
der 3. Art 





’ 
’ 


K12,-DM 


K10,-DM 


K.10,- DM 
D16,-DM 


K.10,- DM 
D18,- DM 


K10,- DM 


Auftrag für Gelegenheitsanzeigen in Homecomputer 








Unterschrift 


Unter der Rubrik „Kleinanzei- 
gen“ veröffentlicheri wir Ge- 
legenheitsanzeigen für Ver- 
und 
Tauschgesuche, Kontaktauf- 
nahme bzw. Erlahrungsaus- 


suche D) Software 
biete an [] Software 


Ich zahle sofort nach Riechnungserhalt. 


Ich wünsche folgenden Text zu veröffentlichen: 


Eee geBEE2SgBbBbBiE keine 
ej21>je 2) JE] EF2Jej ee] ee 
BEIEHEREEEGEND EIER dee 
SEE TeRSWielEleltelle leise Bene elle 
gIESUBSEBE SCENE Berg aeg ee 
BIEISEJEEjatalee je ae een 
gsa see oEENgBEEee een 
22gErEnnEEBeb Eagle een 
GEHgB BEE EEE REN 
SERSSEn BEEINEINEEB Eee ag ae 

Zutreffendes ankreuzen 


suche [7] Hardware 
biete an [7] Hardware 


Abo.-Nr... 


Datum 


Tr98 
Bundesliga 


Galaxy-Fighter 2 

Atarl K12-DM' 
Farbtest 

Tipfab 

Auto-Route 

Apple II K10,- DM 
Sabotage D16,-DM 
TRS 80 K10-DmM 
Bowling 

Sharp K10,-DM 
Textverarbeitung 

Laser K10,-DM 
Break Out 

Tr98 K10,-DM 
Herkules und das Orakel von Delphi 
Fighter Command 

Oric K10,- DM 
Schwarzer Freitag 

Apple Il K10,- DM 
17+4 D 16,- DM 
Dragon K10,- DM 
Olympiade 




















D Tausch OD Versch. 
ÜD) Kontakte DI) Chiffre 
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Die Computerland Corporation ist auf die Vergabe der Franchising-Rechte für den Betrieb von 
Computerland-Fachgeschäften spezialisiert. Unter dem Namen der 1976 gegründeten Computerland 
Corporation waren im August 1984 mehr als 680 Computer-FachverkaufssteHen in den Vereinigten 
Staaten sowie in 23 weiteren Ländern der Erde tätig. 


Die Computerland Cor- 
poration hatihren Sitz in Oak- 
land (Kalifornien). Die 
wichtigste Lager- und Ver- 
triebszentrale der Gesell- 
schaft befindet sich 20 Mei- 
len südlich in Hayward (Kali- 
fornien). Weitere Verwaltungs- 
und Vertriebsniederlassun- 
gen werden von den Tochter- 
gesellschaften Computer- 
land Canada. Computerland 
Europe und Computerland 
Australia unterhalten. Im 
Rahmen eines Joint Ventu- 
res mit der japanischen 
Kanematusu-Gosho Li- 
mited ist die Gesellschaft an 
der Computerland Japan, 
Tokio beteiligt. 


Die Anfänge von Computer- 
land 


Silicon Valley. das südlich 
von San Francisco gelegene 
"Tal des Siliziumchips” ist 
der Geburtsort der Mi- 
krocomputerindustrie. Einer 
der Pioniere auf dem Gebiet 
der Mikrocomputertechnik 
ist die gegenüber von Silicon 
Valley auf der anderen Seite 
der Bucht von San Francisco 
ansässige Imsai Manu- 
facturing. William H. Mil- 
land. Gründer und Präsident 
der Imsai. erkannte nichtnur 
als einer der ersten Beobach- 
ter das enorme Potential des 
Mikrocomputers auf dem 
Gebiet der traditionellen 
Computeranwendungen. son- 
dern auch die großen unter- 
nehmerischen Mög- 
lichkeiten auf professionell 
geführte und zentral belie- 
ferte Computer Fachge- 
schäfte, Als Ergebnis seiner 
Analysen wurde am 2i. 
September 1976 die Com- 
puterland Corporation ge- 
gründe. Edward Faber 
wurde zum Präsident der 
neuen Gesellschaft berufen. 
Er war zuletzt Verkaufsleiter 
von Imsai unter Millard und 
war zuvor 17 Jahre bei IBM 
sowie sechs Jahre bei einer 
Reihe anderer Computer- 
gesellschaften. Millard selbst 
wurde Chairman. 

Das erste: Computerland- 
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Fachgeschäft wurde im No- 
vember 1976 als Pilotunter- 
nehmen in Hayward eröff- 
net. Das erste auf Franchi- 
sing-Basis arbeitende 
Computerland-Fachgeschäft 

nahm am 18. Februar 1977 in 
Morristown (New Jersey) 
seine Tätigkeit auf. Ende 
1977 waren insgesamt 24 
Computerland-Franchising- 
Fachgeschäfte in 13 Bundes- 
staaten der USA tätig. Ihre 
Zahl nahm in der Folgezeit 
stetig weiter zu; im Februar 
1984 wurde das 600. Com- 
puterland-Fachgeschäft eröff- 
net. 


Computerland Europe 
S.A.R.L. 


Die 1979 gegründete Com- 
puterland Europe S.a.r.l. ist 
eine hundertprozentige Toch- 
tergesellschaft der Com- 
puterland Corporation, Hay- 
ward (Kalifornien). Das in 
Luxemburg ansässige Unter- 
nehmen fungiert als Com- 
puterland-Zentrale für Fran- 
chising und Händlerunter- 
stützung in Europa und 
Israel. Derzeit errichtet die 
Gesellschaft ein Lagerhaus 
mit Verwaltungstrakt am 
Flughafen des Großherzog- 
tums. 

Der Baukomplex besteht aus 
drei Baustufen und wird 
nach seiner Fertigstellung 
insgesamt eine Fläche von 
16.828 Quadratmetern um- 
fassen. Derzeit ist die erste 
Baustufe fertiggestellt Da- 
mit stehen eine Lagerhaus- 
Näche von 3.000 Quadrat- 
metern sowie 1.300 Quadrat- 
meter Bürofläche zur Verfü- 
gung. Im Bürotrakt können 
bis zu 130 Mitarbeiter unter 
anderem in den Bereichen 
Einkauf, Lagerverwaltung. 
Versand und Wareneingang 
beschäftigt werden, die den 
Franchising-Partnern von 
Computerland jeden erfor- 
derlichen Service zur Verfü- 
gung stellen, 

In Europa bestanden im 
März 1982 insgesamt 15 und 
Ende 1983 bereits 39 Com- 
puterland-Fachgeschäfte, Im 





Jahre 1984 werden voraus- 
sichtlich weitere 32 neue 
Computerland-Verkaufsstellen 
eröffnet werden. 


Informationen über Computer- 
land Europe: 


Hauptsitz von Computerland 
Europe 

- Der erste Abschnitt des 
Bauprojekis für den Haupt- 
sitz wurde fertiggestellt und 
am 23. März 1984 offiziell 
eröffnet. 

- Die derzeitigen Büroräume 
haben eine Fläche von 1.300 
Quadratmeter, und die Ge- 
sellschaft beschäftigt über 
100 Personen aus 13 ver- 
schiedenen Ländern. 

- Das neue, an die derzeiti- 
gen Einrichtungen angren- 
zende Verwaltungsgebäude 
wird sich über eine Fläche 
von 3.100 Quadratmeter er- 
strecken und eine Bürokapa- 
zität für 200 Personen 
haben. 


Computerland-Lagerhaus 
- Die Fläche des La- 


gerhauses beträgt insgesamt 
3.800 Quadratmeter mit drei 
Versand- und Empfangslade- 
rampen. 

- Das Lagerhaus wurde in 
Bereiche für nicht verzollte 
und verzollte Waren un- 
terteill um die Lager von 
Computerland innerhalb 
und außerhalb der Europäi- 
schen Wirtschaftsgemein- 
schaft aufdiezweckmäßigste 
Art mit Waren zu beliefern. 
Ein Zollbeamter wird ganz- 
tägig im Lagerhaus anwesend 
sein, um die Geschäftstätig- 
keit zu erleichtern. 

- Die Kapazität der neuen Ein- 
richtungen ermöglicht eine 


500prozentige Steigerung 
des Umschlags des derzeitigen 
Versandniveaus. 


Computerlands Markt- und 


Produktgruppe 
In allen Computerland- 


Lagern wird eine umfang- 
reiche Produktpalette der 
maßgeblichen Hersteller ge- 
führt. Obgleich es den Lagern 


freisteht. ihre Produktgrup- 
pen den örtlichen Marktbe- 
dingungen anzupassen, ha- 
ben alle Lager Zugang zu den 
fast 5.000 Produkten von 
mehreren hundert Lie- 
feranten. Zu einigen der Be- 
kannteren gehören IBM, 
NEC, Hewlett-Packard, Di- 
gital und Texas Instuments. 
Computerland bedient in er- 
ster Linie einen handelsge- 
werblichen/- professionel- 
len Markt, aufden 80 Prozent 
des Umsatzes entfällt. Es hat 
ebenfalls mehrere Dutzend 
"Satelliten-Verkaufsstellen”, 
die sich auf Software und 
Produkte für den Inlands- 
markt spezialisieren. 


Internationale Abteilung der 


Computerland Corporation 
Laut Aussage des Gründers 


und Vorsitzenden der Com- 
puterland Corporation, Wil- 
liam H. Millard, hat "Com- 
puterland von Anfang an 
nach dem Konzept eines wirk- 
lichen weltumfassenden 
Netzes gearbeitet”. Millard, 
einer der ersten Hersteller von 
Personal-Computern zu ei- 
ner Zeit, als die Industrie in 
Nordkalifornien konzentriert 
war, sah den Tag voraus, an 
dem Lieferanten und Kun- 
den die Welt umreisen 
würden. 

Innerhalb eines Jahres nach 
Eröffnung seiner ersten Al- 
leinverkaufsvertretung in 
den Vereinigten Staaten, be- 
gann Computerland, Lager 
aufder ganzen Welt zu eröff- 
nen. Das erste in Sydney, Au- 
stralien. wurde im Januar 
1978 eröffnet. Zu einem 
späteren Zeitpunkt im glei- 
chen Jahr wurde das erste 
europäische Computerland- 
Lager in Brüssel, Belgien, er- 
öffnet. Weitere australische 
Lager und das erste kanadi- 
sche Lager wurden Anfang 
1979 eröffnet. Zur Zeit hat 
Computerland 136 Verkaufs- 
stellen außerhalb der Verei- 
nigten Staaten, die sich in 23 
verschiedenen Ländern befin- 
den. 
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= HC-BÜCHERK 


Brandl/Sanver: 
Das ZX-81 ROM 


Dieses Buch zeigt sämtliche Register 
und Adressen des ZX-81. Unterpro- 
gramme finden eine klare Trennung, die 
Dokumentationen könnten etwas aus- 
führlicher sein: Dieses Buch stellt für As- 
semblerprogrammierer ein excellentes 
Nachschlagewerk dar. gleichzeitig 
dient es zum besseren Kennenlernen 
des ZX-81. 

Die Daten: 

Hueber Verlag, 2. Auflage, 1983, DM 
39,80, ISBN. 3-19-008206-5, 147 Seiten 


Arenz/Görlitz: 


Das Spectrum- 
ROM 


In diesem Buch finden Sie das kom- 
plette ROM des Spectrum disassem- 
bliert. Hervorragende Dokumentation 
lassen das Buch zum geeigneten Nach- 
schlagewerk für Maschinencodepro- 
grammierer werden. Aber auch Einstei- 
ger und Neulinge der Maschinen- 
sprache hat dieses Buch einiges zu 
bieten. Möglichkeiten, die Sie bisher 
nur erahnt haben, eröffnen sich in 
diesem Buch. 

Die Daten: 

Hueber Verlag. l. Auflage 1984, DM 
39,80, 214 Seiten. ISBN 3-19-008209-x 







Vogel/Scrimshaw _. 


STE 








Commodore 64 Musik-Buch 


In diesem Buch werden die musikali- 
schen Fähigkeiten des C-64 behandelt. 
Dabei werden keine Erfahrungen in 
der Programmierung vorausgesetzt. die 
Dokumentationen sind ausreichend 
und leicht verständlich. 

Die in diesem Buch enthalteten Li- 
stings reichen von einfacher Tonerzeu- 
gung bis zu mehrstimmigen Liedern. 


Es wird demonstriert. wie «lie Töne in 
Programme eingebaut werden und wie 
die optimalen Klangfarben Testwelegt 
werden 

Füralle.dieden C-64 auch als Musikin- 
strumentschen. ein interessantes Buch. 
Die Daten: 

Birkhäuser 1984, 13] Seiten. DM 29.80, 
ISBN-3-7643-1590-3 





A. Werminghoff/Ch. Silex 
DuMont’s Basic 


Kramkiste 
Nützlich für Apple, Commodore 64, 
Dragon 32, IBM PC/Peanaut und 
verwandte Prozessoren der Familien 
6502 und 6809 


Wie mühsam die ersten selbständigen 
Schritte des Programmierens am Com- 
puter sind, haben die Autoren in guter 
Erinnerung behalten. Der Anfänger ist 
dankbar für jedes Programmlisting aus 
Zeitschriften und dem Computerhand- 
buch. Bald merkt man jedoch. das ein 
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zügiges Forrkommen nur mit Hilfe kost- 
spieliger und langwierig ausgesuchter 
Buch- und Zeitschriftenstapel möglich 
zu sein scheint. 


Dieses Buch wird einen großen Teil 
dieser Suche ersparen: es gibt einfache 
Spiele, die leicht abgetippt werden kön- 
nen, Programmroutinen, die überall 
für eigene Programme gebraucht wer- 
den und auch große Listings, die den 
Speicherplatz des Computer ganz aus- 
füllen, Erläuterungen beschreiben die 
Programme. geben Hinweise und 
Empfehlungen zum Schwierigkeits- 
grad und warnen vor Schreib- und Lo- 
eikfehlern. Viele Fotos unterstützen die 


Erläuterungen. 


Die Listings sind. um Fehler zu vermei- 
den. Original Computerausdrucke. 
Alle Programme sind intensiv getestet 
und fehlerfrei: d.h. sie entstammen ent- 
weder der konkreten Lehrsituation 
oder sind Software-Produktionen der 
Autoren. die verkauft wurden und im 
täglichen Einsatz sind. Alle Pro- 
gramme sind den entsprechenden Stel- 
len mit alternativen Befehlen anderer 
Basic-Versionen versehen. 

Die Daten: DuMont Buchverlag Köln. 
180 S., 80 farbigen Abb., DM 29,- 
ISBN 3-7701-1613-5 
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Gomputer/Leistungsdaten 





Steckplätze Softwar- Kompatibilität Operations- Anbieter Preis ca.DM 
für Module Angebot system 


1 Port sehr gut 
roms] 





mit Coleco- Bit-Basic Borchert 600,- 
vision 





























BIT 90 [tp 
9 Slots sehr gut mit Apple I, Appie-DOS Anpie-Händier 1500,- 
(Module, Apple Ile Kette 
APPLE Ile 
1 Port gut fast alle Atar-DOS Atarl 800,- 
{Eproms) Ferne 
ATARI 800 XL 
1 Port gering MZ 700 Sharp 900,- 
(Expansion) Monktor 
Sharp MZ 700 
1 Port sehr gut mit VC-20 CBM-Basic 2 Commodore 800, 
IE - 
CBM 64 (Expansion) 
1 Port gering mit Tandy Dragon Dragon 700,- 
[Eproms) Bar 
omputer, 
Dragon 32 Dragon 64 
gering mit Oric Oric Orlc 700, 
ORIG 1 
1 Port bedingt mit Pet Commodore 1500, 
(Expansion) u großen 
CBM 3000 
1 Port gut TRSB0 LIE TRS-DOS Tandy, Radio 1200,- 
TRS 80 1] IEpansion) sr 
VIDEO GENIE 
siehe sehr gut ngt CBM Basic 2 Commodore 300,- 
CBM 64 CBM 64 
VC-20 
1 Port gut bedingt Sinclalr Sinclalr 100,- 
(Expansion) mach Deutschland 
ZX-81 
1 Port sehr gut ZX-81, 1-80 Sinclair Sinclair 500,- 
(Expansion) Deutschland 
ZX Spectrum 
1 Port gering Texas Keine Anbieter 
(Eproms) nos 
TI-99/4A : 
1 Port gering Vz 2000, Video Sanyo 500,- 
(Expansion) Laser 310 Technologie 
LASER 210 
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Teil 4 


An dieser Stelle wollen wir 
es beenden, weitere Daten 
über die einzelnen Com- 
puter zu bringen. Die Fülle 
an Informationen dürften 
eigentlich die grundlegen- 
den Unterschiede bei den 
vorgestellten Typen aus- 
reichend aufgezeigt haben. 
Und so mancher Anwender 
mag erkannt haben, inwie- 
weit sein System kompati- 
bel mit anderen ist, Aber 
unsere Serie ist hier noch 
nicht zu Ende. Beginnend 
mit dem nächsten Heft wer- 
den wir über jeden Com- 
puter einen seperaten Be- 
reich schreiben, in dem 
noch einmal ganz klar auf 
die Vor- und Nachteile der 
einzelnen Maschinen hin- 
gewiesen wird. Am Ende 
der Serie haben Sie dann 
einen kompletten Com- 
puterkatalog, durch den 
Ihnen jederzeit wissens- 
werte Daten zur Verfügung 
stehen. 

Dem Profiprogrammierer 
hilft diese Tabelle, seine 
Programme auf andere Sy- 
steme zu adaptieren und 
der Unerfahrene kann den 
Katalog als Einkaufshilfe 
bei Systemwechsel benut- 
zen und sich das Gerät her- 
aussuchen, was am ehe- 
sten seinen Anforderungen 
entspricht. 

Wir führen den Katalog in 
der gleichen Reihenfolge 
wie unsere Tabelle und be- 
@innen nächsten Monat 
mit dem BIT-90. 


.B.0.0.0.0. 0. 
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"Tote Sprachen nennt Ihr die 
Sprachen des Flaccus und 
Pindar? Und von beiden nur 
kommt. was in der unsrigen 
lebt!". Dieses Urteil des 
Dichterfürsten Goethe über 
die lateinische und griechische 
Sprache mag zwar von vielen 
Zeitgenossen nur zögernd un- 
terschrieben werden, fest steht 
jedoch, daß zumindest die 
Sprache des Flaccus, das 
Latein, eine rechte Renais- 
sance erlebt, Und so verwun- 
dert es heute auch niemanden, 
was noch Ende der Siebziger 
Jahre als blanker Wahnsinn 
aufgefaßt worden wäre, daß 
nämlich der renommierte und 
traditionsreiche Fremdspra- 
chen-Verlag Langenscheidt 
gleich nach Englisch und 
Französisch auch einen 
”Electronischen Vokabeltrai- 
ner” für das Lateinische auf 
den Markt geworfen hat. Ihr 
HOMECOMPUTER _ hat 
sich sogleich ein solches Ex- 
emplar besorgt und für all 
diejenigen getestet, die sich 
sowohl für alte Sprachen als 
auch für Computer interes- 
sieren. 


Langenscheidt zeichnet 
zwar für den Wortschatz so- 
wie die Idee der Präsentation 
verantwortlich, die Hard- 
ware jedoch wird von Sharp 
verfügbar gemacht. wodurch 
auch vonseiten der techni- 
schen Konzeption ein hohes 
Maß an Zuverlässigkeit 
sicher gestellt sein sollte, 
Der Vokabeltrainer kommt 
in der Gestalt eines norma- 
len LCD-Taschenrechners 
im passenden Etui zum Be- 
nutzer, was ihm die Hand- 
lichkeit eines Taschen- 
Wörterbuches verleiht. 
Unterhalb der achıstelligen 
Flüssigkristall-Anzeige be- 
findet sich ein Schiebe- 
schalter. der als Power- 
Switch fungiert und gleich- 
zeitig zur Anwahl einer der 
drei möglichen Betriebs- 
modi dient: I. Rechnen in 
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Der aktuelle Testbericht 


Langenscheidt ” Elektronischer Vokabeltrainer Latein” 
Nützliches Arbeitsmittel oder bloß Spielzeug? 


den vier Grundrech- 
nungsarten mit saldieren- 
dem Vollspeicher und Pro- 
zentautomatik, 2. Wörter- 
buch  Lateinisch-Deutsch 
und 3. Wörterbuch Deutsch- 
Lateinisch. 

Darunter findet sich die nor- 
male Rechner-Tastatur mit 
einigen zusätzlichen Druck- 
tasten zur Steuerung des 
"Wörterbuches”. 


Einfache Bedienung 
Zugegeben. ganz so simpel 
wie die Benutzung eines 
herkömmlichen Wörter- 
buches ist die Handhabung 
des "Vokabeltrainers Alpha 
8" nicht. Dennoch ist die Be- 
dienung unkompliziert und 
auch von Leuten zu mei- 
stern, die den Umgang mit 
Computern nicht gewohnt 
sind. 


Sie wählen zunächst die Wör- 
terliste aus (Latein-Deutsch 
oder Deutsch-Latein). was. 
wie bereits erwähnt, durch 
Betätigen des _Betriebs- 
schalters geschieht. 

Ist das geschehen, drücken 
Sie Taste ABC1. womit sich 
der Anfangsbuchstabe des 
gesuchten Wortes bestimmen 
läßt. Sobald auf der Anzeige 
die gewünschte Initiale er- 
scheint. drücken Sie ABC2 
und wählen damit den 2. 
Buchstaben. 

Nun können Sie durch Bertäti- 
gen einer speziellen "Such- 
Taste” die Liste derjenigen 
Wörter durchforsten, die mit 
den beiden gewählten Buch- 
staben beginnen. Ist das be- 
treffende Wort gefunden, 
drückt man "Übersetzen" und 
erhält eins. zwei mögliche Ent- 
sprechungen (bei Verben eben- 


falls die Angabe der betref- 
fenden Konjugation). 

Wer darüber hinaus ein ge- 
zieltes Training betreiben 
möchte, der kann über 
"Üben" einen Zufallszahlen- 
generator aktivieren, der ihm 
querfeldein Wörter präsen- 
tiert, die entweder geraten 
oder gleich übersetzt werden 
können. Gerade diese Funk- 
tion ist ein Gewinn gegenüber 
dem Wörterbuch konventio- 
neller Form, das in der Regel 
nur stures Lernen von Wör- 
tern mit einem bestimmten 
Buchstaben, d.h. auch in 
alphabetischer Reihenfolge 
ermöglichte. 


Der Test 
Ein gutes Wörterbuch er- 
weist seinen Wert bekannı- 
lich erst in echten Zweifels- 
fällen: Und so wollte auch 
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Apiha-8 drei verschiedene innerhalb einer Erörte- Nr. -gefunden- 
Texte, die bekannt. aber rung spricht. Passage: | 67% 
keine Ohrwürmer des La- Orator. 33. 116-118 2 71% 
Sin-Unterrichtes sind: 3 69% 


I) die Geschichte von Latona 3)einen _ nichtklassischen 
und den Iykischen Bauern, Text. nämlich einige Sätze 
die von der Göttin zur aus dem berühmtesten 
Strafe für Boshaftigkeit in Werk Bonaventuras. inde- 
Frösche verwandelt wer- nen ereine Beweisführung 
denund"selbst unter Was- secundum rationem für 
ser fortfahren. die Göttin das Sein als solches bietet. 
zu schmähen” (wer kennt Passage: Itin. ment. ad 
nicht das bekannte "quam- Deum. 5.3.308 
vis sintsub aqua. sub aqua 
maledicere temptant”). 
Passage: Ovid. Meıa- 


- 


morphosen. VI. 313-381] 


Bei einem gespeicherten Wort- 
schatz von nur 4000 "Da- 
tensätzen” ergibt dies. wieich 
meine, ein recht ordentliches 
Ergebnis und eine gute qua- 
litative Wortauswahl. Wenn 
man darüber hinaus berück- 
sichtigt. daß sich viel zusätz- 
lich erschließen läßt. wenn 
Schlüsselbegriffe bekannt 
sind, erreicht man eine be- 
achtliche Transparenz vor- 
gelegter Texte. In dieser Hin- 


Dabei ergab sich die folgen- 
dende Statistik. Von den mir 
nicht bekannten. somit also 
gesuchten Wörtern. fand ich 
2)einen Abschnitt aus 

Ciceros "Orator”, in dem 


in meinem ”Alpha-$8” fürdie sicht ist das Gerät sehr 
empfehlenswert. 


drei genannten Texte: 
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Ergonomie 
Ergonomie ist zum Schlag- 
wort geworden und um- 
schreibt all das. was Arbeits- 
mittel benutzergerecht macht. 
Somit fällt nicht nur eine 
menschenfreundliche Form- 
gestaltung. sondern auch der 
jeweilige Komfort in der An- 
wendung darunter. Was das 
betrifft, so hätte man meines 
Erachtens den "Alpha-8"” 
noch besser konzipieren 
können. 

Zunächst leuchtet mir das 
Hochformat nicht ein. da der 
"Vokabeltrainer" ja vorran- 
gie Texte anzeigen soll, die 
aufder achtstelligen Anzeige 
nur sehr selten Platz finden. 
Querformat a la Pocket- 
Computer hätte hier die 
Chance eröffnet. eine grö- 
Bere Anzeige (16-20 Stellen) 
und damit mehr Komilort 
zu bieten. 

Dieser Mangel macht sich vor 
allem deshalb negativ be- 
merkbar, weil unser elektro- 
nisches Wörterbuch ein 
marktübliches Scrolling ver- 
missen läßt: Paßt ein Wort 
nicht auf's Display, wird auf 
Knopfdruck die Anzeige ge- 
löscht und der jeweilige Rest 
(selbst wenn es nur ein einzi- 
ger Buchstabe ist) angezeigt, 
Das irritiert den Benutzer 
natürlich und dürfte an- 
gesichts eines respektablen 
Preises von knapp 160 Mark 
nicht sein, zumal Hardware- 
Lieferant Sharp in puncto 
Taschencomputern reiche 
Erfahrung besitzt. 


Fazit: 
Sieht man jedoch von diesem 
Manko, also einer Einbuße 
in Sachen Komfort ab, bietet 
der "Alpha-$"” eine gute Lei- 
stung als Wörterbuch und 
dazu den pädagogischen Ne- 
beneffekt. über eine Aktivie- 
rung des Spieltriebes (ein Ta- 
schenrechner ist interessanter 
als ein Taschenbuch) mehr 
Anreiz zum Vokabelpauken 
zu bieten. 
Man würde sich aber einen 
etwas günstigeren Endver- 
braucher-Preis wünschen: 
Rund vier Pfennig pro Wort 
ist halt ein bißchen viel. 
(sk) 
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Zu einer Zeit, in der | 
krampfhaft über neue Medien 
sinniert wird, sollte man ei- 
nem uralten Datenträger 
wie dem Papier keine glän- 
zende Zukunft mehr pro- 
enostizieren. Und so mag 
mancher schon für die näch- 
sten Jahre den Großen 
Brockhaus auf Diskette oder 
Karl Mays Winnetou auf Ma- 
gnetband sehen. Wenn die- 
ser Prophet aber Anfang 
Oktober in der Nähe des 
Frankfurter Messegeländes 
herumspaziert sein sollte, 
so mag er reichlich irritiert 
worden sein. 
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Was man da wie eine wild ge- 
wordene Herde von Groo- 
pies auf die einzelnen Hallen 


zustürmen sah, waren al- 
lesamt Menschen, die nicht 
etwa durch eine Com- 
putershow oder einen Infor- 
matiker-Kongreß, sondern 
durch Gedrucktes an den 
Main gelockt worden waren. 
Wie paßt dies in unsere Tage, 
in denen so wenig gelesen 
wird, in denen man soviel 
von Sprachlosigkeit stam- 
melt? 


Hauptattraktion: 


u Friedenspreis 


Nun. eines steht sicher fest: 


nicht jeder. der sich durch 
das Menschengewühl kämpf- 
te, kann als Lese-Freak be- 
zeichnet werden. Bei vielen. 
wenn nicht den meisten. war 
durchaus Image-Pflege im 
Spiel. Schließlich ist Ver- 
stand eines der wenigen 
Dinge im Leben. von denen 
ein jeder genug zu haben 
glaubt - und das Buch steht 
immer noch als Emblem 
Nummer Eins fürgeistige In- 
teressen. Was läge also näher 
als sich auf der größten 
Bücherschau der Welt zu zei- 
gen und den vielen Zeitge- 
nossen gegenüber das per- 
sönlich Niveau zu do 
mentieren?! 


Seit 1951 wird in Frank- 
furt am Main, genauer 
gesagt in der Paulskirche. der 
Friedenspreis des Deutschen 
Buchhandels verliehen. Die- 
ser jährliche Höhepunkt 
buchhändlerischen Wirkens 
ist zugleich das herausra- 
gende Ereignis der Buch- 
messe überhaupt die in 
diesem Jahr nicht nur die jı- 
gendliche Frische des alten 
Buches unterstreichen. son- 
dern im sogenannten "Orwell- 
Jahr” 1984 auch die Sorgen 
vieler Bürger um Sicherung 
ihrer individuellen Freihei- 
ten symbolisieren sollte. 
Der mit 25.000 Mark dotierte 
Preis ging diesmal an den 
Mexikaner Octavio Paz, der 
schon im Nachnamen (paz= 
Friede) das Leitmotiv seines 
Wirkens zum Ausdruck 
bringt. 
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Octavio Paz: 

poetische und politische Moral 
sind untrennbar 

"Der Staat ist”, so schrieb 
Paz einmal, "die große Rea- 
lität des 20. Jahrhunderts. 
Sein Schatten bedeckt den 
ganzen Planeten”. 

Dabei muß allerdings be- 
dacht werden, daß der Autor 
aus einem mehr als sonnen- 
verwöhnten Land kommt, 
Schatten für seine Lands- 
leute somit durchaus er- 
holsam und labend sein 
kann. Wasaberin jedem Fall 
zum Ausdruck kommt. ist 
dies: "die Frage nach dem 
Wesen des Staates (als) die 
Hauptfrage unserer Zeit”, 
Recht einprägsam hat Bun- 
despräsident Richard von 
Weizsäcker den Sinn um- 
schrieben, ausgerechnet ei- 
nen Literaten aus Latein- 
amerika mit dem Friedens- 
preis auszuzeichnen. "Mit 
unseren Kenntnissen von 
Lateinamerika”, so begann 
erseine Ansprache anläßlich 
der Preisverleihung, "zählen 
wir zu den Unterent- 
wickelten dieser Erde, sehr 
zu unserem Nachteil. Wir 
Europäer denken an dortige 
soziale Ungerechtigkeit und 
Armut, an fehlende Freihei- 
ten und Menschenrechte. 
Wir sehen ein Feld der Kon- 
frontation von Großmäch- 
ten.” 

Der Börsenverein des Deut- 
sch. n Buchhandels setze mit 
dem Friedenspreis für Okta- 
vio Paz an der entscheiden- 
den Stelle zur Korrektur an: 
bei der Kultur. "Paz bringt 
uns”, so der Bundespräsi- 
dent, "Lateinamerika mitsei- 
nen eigenen Worten ganz 
nahe: Imagination, Sensibi- 
lität, Liebenswürdigkeit, 
Sinnlichkeit, Melancholie, 
eine gewisse Religiosität und 
eine gewisser Stoizismus ge- 
genüberdem Leben unddem 
Tod. ein tiefes Gefühl für das 
Jenseitige und ein nicht we- 
niger ausgeprägter Sinn für 
das Hier und Jetzt... Latein- 
amerika ist eine Kultur.” 


Bücher für Freaks: 

Es ist klar. daß auf einer 
Messe des Buches der Com- 
puter keine Triumphe feiern 
kann und soll: jeder Anbieter 
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nutzt zwar offen und bewußt 
bzw. versteckt und beiläufig 
die Möglichkeiten der elek- 
tronischen Datenverar- 
beitung. dominieren soll je- 
doch das gedruckte Wort. 
Das soll aber nun beileibe 
nicht bedeuten, daß für 
Computer-Fans in Frankfurt 
nichts zu holen gewesen 
wäre - ganz und gar nicht! 
Der beste Rechner ist schließ- 
lich nur so gut wie das Feed- 
back, das sein Besitzer 
vonseiten Software-Anbie- 
tern und Fachautoren erhält. 
und weil dies so ist kann 
man mit computer-orientier- 
ter Literatur durchaus etwas 
verdienen, wie die zahlrei- 
chen einschlägigen Ver- 
lagsunternehmen genauso 
unter Beweis stellen wie die 
Tausendsassas der Branche, 
die neben anderem auch 
noch ein Stück vom Com- 
puterkuchen haben wollen. 
Und so ist es nur folgerichtig. 
wenn Ihre HOMECOM- 
PUTER-Abordnung in 
Frankfurt zielstrebig die 
Halle 3 angesteuert hat, um 
sich nach Lesenswertem für 
den wissensdurstigen Com- 
putrix umzuschauen. 


Langenscheidt (übrigens 
nicht bei den ausgesproche- 
nen Software- und Informa- 
tik-Verlagen. sondern in 
Halle 5 zu finden gewesen) 
stellte seine private "Textver- 
arbeitung für alle”, HOME- 
WORD. vor. HOMEWORD, 
das von Langenscheidt in 
den USA beschafft wurde 
und vom Software-Anbieter 
Sierra stammt. wird in den 
Vereinigten Staaten als Best- 
seller und den Text-Syste- 
men gefeiert. Es ist für den 
Commodore 64 geschrieben 
worden und heimst vorallem 
hohes Lob für seine un- 
geheure Benutzerfreundlich- 
keit ein. "HOMEWORD is 
easier to use than i game” 
schreibt Amerikas renom- 
miertes Magazin "Creative 
Computing” über HOME- 
WORD, das zum Beispiel 
konsequent Piktogramme 
(Bildsymbole) einsetzt und so 
den Laien wie den Routinier 
durch Menü und Pro- 
grammteile führt (siehe auch 
Abb. I) 





Vieweg aus Wiesbaden prä- 
sentierte eine Reihe neuer 
Titel aus seiner Sparte "Info- 
ware", die sich sowohl an 
Einsteiger als auch Fort- 
geschrittene wendet. So ver- 
mittelt Wayne Creakmores 
Buch "Mikrowissen griff- 
bereit” einen leicht verständ- 
lichen Überblick über das 
Medium Computer. Reich- 
lich bebildert. ist das Buch ge- 
eignete Lektüre für jeden, der 
sich ebenso schnell wie 
gründlich über den Bereich 
des Themas "Funktions- 
weise und Einsatz von Rech- 
nern” informieren will, 
Harald Schumnys "Mikro- 
computer-Jahrbuch 1985" 
stellt die inzwischen sechste 
Ausgabe eines Standard- 
werkes zur Computerge- 
schichte dar. Die Angabe in- 
teressanter Anwendungen, 
die Vorstellung technologi- 
scher Besonderheiten, sowie 
die Behandlung diverser 
Software-Themen macht 
den Band zu einem wertvol- 
len Nachschlagewerk für je- 
den Computer-Üser. 


Der Idea-Verlag aus Puch- 
heim bei München bietet 
ebenfalls einiges an nütz- 
licher Literaturinsbesondere 
für EDV-Einsteiger. Mir fiel 
zum Beispiel der Band 
"Spaß mit Basic” von Krizan 
und Kaufmann auf, den ich 
bislang noch nicht kannte, 
der jedoch schon in sechster 
Auflage verfügbar istundein 
heiterer Kurs für das Erler- 
nen der Programmier- 
sprache Basic - von der Pike 
auf - ist, 


Neu bei SYBEX aus Düssel- 
dorf ist die Reihe von Kom- 
plettkursen, bestehend aus 
Buch und Software. Sie 
nennt sich "Mister Mikro” 
und bietet kompetente Ein- 
führungen in Basic-Versio- 
nen und Assembler von 


CBM-64. VC-20, APPLE I1/ | 


Ile und ZX-Spectrum. 

Das jeweilige Buch enthält 
eine leicht verständliche. 
dennoch aber zuverlässige 
Einführung in die Assem- 
bler-Programmierung. Für 
den verwandten Prozessor 
werden alle Instruktionen 
gut und ausführlich beschrie- 
rieben, so daß viele Schwie- 
rigkeiten. die oft von An- 
fang an weiteren Einstieg in 
die Maschinensprache ver- 
leiden, ausgeräumt werden 
können. 


Der Teubner-Verlag in Stutt- 
gart ist seit einer Reihe von 
Jahrzehnten für fundierte 
Fachreihen aus den Be- 
reichen Mathematik. Infor- 
matik/EDV, Physik, Mecha- 
nik. Biologie. kurz den 
wichtigsten naturwissen- 
schaftlichen Disziplinen be- 
kannt. Hier interessierte 
mich besonders das Buch 
von Lorbeer und Werner 
"Wie funktionieren Ro- 
boter”, Nicht nurausarbeits- 
marktpolitischer Sicht, son- 
dern auch in Hinblick aufdie 
Belange des Heimcomputer- 
Besitzers. der seinen Rech- 
ner zum Regeln und Steuern 
einsetzen yill, sind Roboter 
außerordentlich faszi- 
nierend. Der Band beschreibt- 
reibt Grundprinzipien der 
Robotersteuerung. Steuer- 
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mechanismen, Ansteuc- 
rungsparameter und Kom- 
mandosprachen sowie eini- 
ges mehr. Derzeit wird die 
Auslieferung des Titels vor- 
bereitet: sobald er verfügbar 
ist, werden wir ihn innerhalb 
einer Rezension vorstellen. 
Rowohlt aus Hamburg, be- 
kannt für die preiswerten 
Bildmonographien. haben in 
ihrer neuen "Computer ”-Reihe 
zwei schr interessante Titel an- 
gekündigt: Peter Mc Wil- 
liams, Computern in Frage 
und Antwort (eine un- 
terhaltsame Ergänzung zu 
den rororo-Bänden "Persön- 
liche Computer für Einstei- 
ger" und "Textverarbeitung 
für Einsteiger") sowie ein 
Buch von Matthias Horx 
"Chip-Generation”: Der 
Autorsah sich im Dschungel 
der Bits um und plaudert aus 
der Szene. 

Der Hueber-Verlag aus Is- 
maning bei München hat 
aus dem Verlagsprogramm 
von Markt & Technik nicht 
nur diverses übernommen, 
sondern auch eigene Editio- 
ne. aufdie Beine gestellt. die 
er in einem schmalen aber 
inhaltsschweren Software- 
Katalog präsentierte. 
Bücher wie "Das ZX-81 
ROM" oder "Das Spectrum- 
ROM" haben wir bereits 
außerhalb dieses Berichtes 
rezensiert. Hier sei deshalb 
vorran, 'g die brandneue 
Serie "6 Programme für Ih- 
ren...” erwähnt, die bislang 
für den Dragon 32, den VC- 
20, den C-64, den BBC-B. die 
ATARIs. den ZX-Spectrum 
sowie den ORIC-] verfügbar 
ist und - speziell für jeden 
Rechner - Programme von 
hoher Raffinesse und ausge- 
feiltem Niveau bereit stellt. 
FALKEN-Bücher kennen 
Sie bestimmt: für nahezu je- 
des Hobby. jeden Zweck des 
Alltages. ist ein Falkenbuch 
relativ preiswert auf dem 
Markt, das mit vielen Illu- 
strationen und eingängigem 
Text Einsteiger-Informatio- 
nen bietet. Kein Wunder 
also, daß der Falken-Verlag 
auch für die Rechner 
Anwendung einiges auf La- 
ger hat: Computer-Grundwis- 
sen.  Basic-Einführungen 
und auch ein Titel zum 
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Thema "Lernen mit dem 
Computer” sind durchaus zu 
empfehlen. 

Der "Schulbuchverlag” Klett 
aus Stuttgart hat ein Pro- 
gramm an  Computer- 
büchern ausgetüftelt, das so- 
wohl die Belange des Anfän- 
gers wie des versierten Freaks 


berücksichtigt. Besonders 
gefiel mir hier, daß für den 
nicht mehr vertriebenen, 


dennoch allenthalben in den 
Wohnstuben zu findenen 
Texas TI-99/4A ein schönes 
Buch erschienen ist, der erste 
Teil des TI-99/4A-Kochbu- 
ches (soeben wird die Auslie- 
ferung auch des zweiten Tei- 
les vorbereitet). Wichtig ist 
diese Erscheinung vor allem 
für diejenigen. die um die 
Jahreswende 83/84 zu einem 
der letzten TI’s gekommen 
sind und nun wie das Kind 
beim Dreck sitzen, weil sie 
nicht wissen, was sie alles aus 
ihrem Rechner herausholen 
können. 

Auch andere große Verlage 
wie Birkhäuser (Basel). Han- 
ser (München). Heyne (Mün- 
chen), Schöningh und viele 
mehr boten diverses an Neu- 
heiten so daß wir keine Sor- 
gen haben müssen fürunsere 
Bücherkisten, in den näch- 
sten Monaten unversorgt zu 
sein. 

Bleibt nun noch zu erwäh- 
nen. daß sich auch die VIFI 
International auf der Buch- 
messe traf. 


VIFIINTERNATIONAL, ein 
Verbund internationaler 
Großverlage der westlichen 
Welt und Japans, blickt jetzt 
aufein einjähriges Bestehen 





zurück. Die Gruppe besteht 
weltweit aus 10 Mitgliedern. 
die Computer Software in 
über 20 Ländern unter dem 
Markenzeichen "VIFT" ver- 
treiben. Ziel des Zusam- 
menschlusses ist der Aus- 
tausch von Technologie- 
know-how und Markterfah- 
rung. die Bekämpfung der 
Software-Piraterie und die 
Lizenzvergabe von Software- 
Programmen untereinander. 
Alle Mitglieder wollen be- 
sonders die Forderungen 
nach intelligenter und qua- 
litätsvoller Software erfüllen. 
wozu sıe sich aufgrund ihrer 
ver!egerischen Arbeit beson- 
ders befähigt sehen. 
Weltweit umfaßt der Katalog 
der  Software-Programme 
mittlerweile 500 Titel für 
mehr als 10 verschiedene 
Computer-Systeme. 

Alle Marktsegmente. wie 
Spiele. Lernprogramme. Wis- 
sensvermittllung und Ge- 
schäftsprogramme sind hier- 
bei vertreten. 

Jeder zum VIFI-Verbund ge- 
hörende Verlag verfolgt. ent- 
sprechend seiner Position im 
jeweiligen Land und seiner 
übrigen Verlagsaktivitäten, 
seine eigene Software-Strate- 
gie. So hat sich beispiels- 
weise der Otto Maier Verlag 
Ravensburg zunächst mit 
der Herausgabe von Com- 
puter Software-Programmen 
für Kinder zwischen 5 und 12 
Jahren zum Spielen am Ho- 
mecomputer befaßt. Die Ver- 
lagsgruppe Langenscheidt 
München nutzt ihr Fremd- 
sprachen-know-how und die 
Schulbucherfahrung für die 
Herausgabe von Computer- 


Programmen wie Vokabel- 
Lernspiele, sowie für Textver- 
arbeitung Die Liste der 
heute zum VIFI-Verbund ge- 
hörenden Verlage ist statt- 
lich: 


Bundesrepublik, Österreich, 
Schweiz: 

Ravensburger. 
Langenscheidt 

Frankreich, Belgien: 

Nathan. 

Larousse. 

VIFI INTERNATIONAL 
(als Zentrale der VIFI- 
Gruppe) 
Großbritanien, 
Arabische Emirate: 
Longman 
Niederlande: 
Malmberg/VNU 
Dänemark, Norwegen: 
Munksgaard 

USA: 

Scholastic 

Kanada (franz.): 
Sodiges 

Japan: 

Dempa 

Italien: 

Mondadori 
Spanien: 

Anaya 


Australien, 


Buchverlage wollen ein 
starkes Wort bei den Entwick- 
lungen von Software mit- 
sprechen. Für Michel Motro. 
den Geschäftsführer von 
VIFI TINTERNATIONAL. 
sind es gerade die Verlage. 
die die besten Voraussetzun- 
gen für erfolgreiches Produ- 
zieren von Software haben. 
wenn sie ihre bisherige Er- 
fahrung im Marketing und 
ihre eingespielten Vertriebs- 
wege nutzen. um in einem 
stark wechselnden Markt be- 
teiligt zu sein. 
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| Fritz und Ka 
alle kauf 


ziger 
its mehr 


als zwan ate verfüg- 
bar geradezu "be- 
t ählt er nach wie vor 
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von Commo 
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| Man schreibt das J 
Überall In Ar Galaxis hat das Verbrechen ersch 
maße angenommen... Nur auf einer Irgendwo Ig SW 
Hydra treibenden Festung leistet eine ar 


ner Raumritter noch erbitterten Widerst Ex-Ph => Banner 
Wie es weitergeht erfahren Sie au is wie der Dr. Jeckyli 
d mzeitalters: seit er an- 


lich eines Experimentes 
Soft-Service 
Phantastische . 






liches zweites Ich. So, wie Dr. 
Jeckyli sich in Mr. Hyde zu 
verwandeln pflegt, wird Ro- 
bert Bruce Banner zum Hulk 


radioaktiv verseucht wurde, 
verzeichnet uns 


verfügt er über ein schreck- 
Service, der N müh- 
selige Abti N 
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Die neuen Rechner-Modelle von Commodore stellt Ihnen 
"Gompute mit” auf Selte 4 vor. 
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Phänomen, üb Sn CM- 
Redakteug n Kaus ein 
paar N n gemacht und 


eine eiligen Bericht ge- 
Age hat. Denersten Teil 
ntersuchung finden Sie 


f Seite 36. 


„Tips & Tricks 

















in unserer Werkstatt gibt's 
diesmal in der Sparte Tips & 
Tricks u.a. einen "Errorline- 
Lister". Wer sein Schuleng- 
lisch hervorkramt, weiß wohl 
schon, um was es sich dabei 
handelt, Wir präsentieren eine 
wirkliche Routine, die bei Auf- 
tauchen eines Fehlers den 
Bildschirm löscht und eine 
Fehlermeldung ausspuckt. 
Seite 10. 
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Nein, die ulkigen Gestalten die Sie auf dem obigen Bild sehen 
gehören nicht zur Redaktion des Roeske-Verlages, sondern sind 
ein Produkt des neuen Extended Graphik-Systems von Interface 
Age und treten normalerweise in der Sesamstraße auf. 

Lesen Sie mehr hierzu auf Seite 54. 


= 2 su 


u Eee ee Fer sn) en Ds 


ANZEIGE 








3 VIDEO VIS 

Be gibt es im gut geführten 

e = Zeitschriftenhandel, beim Bahn- 

ats R Ba \\ \ j BIT, T- 22 hofsbuchhandel, im gut sortierten Video- 

md 15.88 nen: AT U "\2 u u handel und als Clubzeitschrift in der aktuellen 
geO zit ge rn — a RD BR BB 1, Be, Videothek. Auch bereits erschienene Ausgaben mit inter- 

y\ ‚u get EEE Ma A A 12 ee essanten Redaktionsthemen sind noch beim Verlag gegen eine 

die m ET \ TE P\ N ermäßigte Gebühr erhältlich. Verlag Erwin Jungfer GmbH & Co. KG, 
EN a AZ \ 3420 Herzberg am Harz, Postfach 1209. 
NN, \ Pr Bit De VIDEO VIS, die Zeitschrift mit den fünf Redaktionsteilen: « dem großen Vilmteil « der 
; a \ \ Auf u TeleVision, dem Heft im Heft « dem interessanten .Video-Anwenderteil » Testberichten und 


Ratschlägen » dam playtronic-Sonderteil über Homecomputer und Videospiele, 











regnen 


Video-Zeitschrift 


